Newer Older
1224 lines | 38.541kb
added experimental expand me...
yuki-kimoto authored on 2010-10-20
1
=encoding utf8
2

            
updated document
yuki-kimoto authored on 2010-10-22
3
=head1 NAME
added experimental expand me...
yuki-kimoto authored on 2010-10-20
4

            
update pod
Yuki Kimoto authored on 2011-01-28
5
DBIx::Custom::Guide::Ja - DBIx::Customのガイドブック
added experimental expand me...
yuki-kimoto authored on 2010-10-20
6

            
7
=head1 ガイド
8

            
update pod
Yuki Kimoto authored on 2011-01-28
9
L<DBIx::Custom>はSQLの実行を簡単に行うためのクラスです。
10
L<DBIx::Class>やL<DBIx::Simple>と同じように
updated document
Yuki Kimoto authored on 2011-01-20
11
L<DBI>のラッパクラスになっています。L<DBIx::Class>よりも簡単に、
12
L<DBIx::Simple>よりもはるかに柔軟なことを行うことができます。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
13

            
14
L<DBIx::Custom>はO/Rマッパーではありません。O/Rマッパーは
15
便利ですが、O/Rマッパのたくさんの文法を覚える必要があります。
updated document
Yuki Kimoto authored on 2011-01-20
16
また、O/Rマッパによって生成されたSQLは非効率なことがありますし、
17
複雑なSQLを生成することができないので、
update pod
Yuki Kimoto authored on 2011-01-31
18
生のSQLを実行しなければならない場合がたくさんあります。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
19

            
updated document
Yuki Kimoto authored on 2011-01-20
20
L<DBIx::Custom>はO/Rマッパとは対照的な設計が行われています。
updated document
Yuki Kimoto authored on 2011-01-20
21
L<DBIx::Custom>の主な目的は、SQLを尊重しつつ、L<DBI>だけでは
updated document
Yuki Kimoto authored on 2011-01-20
22
とてもめんどうな作業を簡単にすることです。もしSQLについて
23
多くの知識を持っているならば、L<DBIx::Custom>でそのまま
updated document
Yuki Kimoto authored on 2011-01-20
24
活用することができます。
updated document
Yuki Kimoto authored on 2011-01-20
25

            
update pod
Yuki Kimoto authored on 2011-01-28
26
L<DBIx::Custom>の仕組みを少しだけ説明しておきます。
updated document
Yuki Kimoto authored on 2011-01-20
27
L<DBIx::Custom>では、タグと呼ばれるものを
28
SQLの中に埋め込むことができます。
29

            
30
    select * from book where {= title} and {=author};
31

            
32
{}で囲まれた部分がタグです。このSQLは実際に実行されるときには
33
次のようにプレースホルダに展開されます。
34

            
updated document
Yuki Kimoto authored on 2011-01-20
35
    select * from book where title = ? and author = ?;
updated document
Yuki Kimoto authored on 2011-01-20
36

            
37
これらの展開にはどのような意味があるのでしょうかと質問
update pod
Yuki Kimoto authored on 2011-01-28
38
されるかもしれません。この簡単な仕組みの上に
39
便利な機能が実装されます。それは以下のようなものです。
updated document
Yuki Kimoto authored on 2011-01-20
40

            
updated document
Yuki Kimoto authored on 2011-01-20
41
=over 4
updated document
Yuki Kimoto authored on 2011-01-20
42

            
update pod
Yuki Kimoto authored on 2011-01-28
43
=item 1. プレースホルダにバインドする値をハッシュリファレンスで指定
updated document
Yuki Kimoto authored on 2011-01-20
44

            
update pod
Yuki Kimoto authored on 2011-01-28
45
L<DBI>を使うのであればプレースホルダにバインドする値は配列
updated document
Yuki Kimoto authored on 2011-01-20
46
で指定する必要があります。
updated document
Yuki Kimoto authored on 2011-01-20
47

            
updated document
Yuki Kimoto authored on 2011-01-20
48
    $sth->execute(@bind);
49

            
50
L<DBIx::Custom>を利用するのであればハッシュリファレンスで指定すること
51
できます。
52
    
53
    my $param = {title => 'Perl', author => 'Ken'};
54
    $dbi->execute($sql, $param);
55

            
update pod
Yuki Kimoto authored on 2011-01-28
56
=item 2. 値のフィルタリング
updated document
Yuki Kimoto authored on 2011-01-20
57

            
update pod
Yuki Kimoto authored on 2011-01-28
58
L<DBIx::Custom>はフィルタリングの機能を提供します。
updated document
Yuki Kimoto authored on 2011-01-20
59
たとえば、日付の列は、Perlで扱うときにはC<Time::Piece>などの日付オブジェクト
60
で扱い、データベースに格納するときはデータベースの日付型に変換したい
61
と思うのではないでしょうか。またデータベースから取り出すときは
62
データベースの日付型から日付オブジェクトに変換したと思うのでは
63
ないでしょうか。
64

            
65
このようなときはフィルタ機能を使うことができます。
66

            
67
まずフィルタを登録します。
68

            
69
    $dbi->register_filter(
70
        tp_to_date => sub {
71
            ...
72
        },
73
        date_to_tp => sub {
74
            ...
75
        }
76
    );
77

            
78
次にテーブルの各列にこのフィルタを適用します。
79

            
80
    $dbi->apply_filter('book',
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
81
        'issue_date' => {out => 'tp_to_date', in => 'date_to_tp'}
updated document
Yuki Kimoto authored on 2011-01-20
82
    );
83

            
84
outはPerlからデータベースに保存する方向、inはデータベースからPerlに取得する方向です。
85

            
update pod
Yuki Kimoto authored on 2011-01-28
86
多くのメソッドで自動的にこのフィルタが有効になります。
updated document
Yuki Kimoto authored on 2011-01-20
87

            
update pod
Yuki Kimoto authored on 2011-01-28
88
    $dbi->insert(table => 'book', param => {issue_date => $tp});
updated document
Yuki Kimoto authored on 2011-01-20
89

            
90
=item 3. 選択的な検索条件
91

            
update pod
Yuki Kimoto authored on 2011-01-28
92
L<DBI>では選択的に検索条件を作成することは難しいです。
updated document
Yuki Kimoto authored on 2011-01-20
93

            
94
たとえば、検索条件にtitleとauthorが指定された場合は次のSQLを
95

            
96
    select * from book where title = ? and author = ?;
97

            
98
titleだけの場合は次のSQLを
99

            
100
    select * from book where title = ?;
101
    
update pod
Yuki Kimoto authored on 2011-01-31
102
authorだけの場合は次のSQLを実行した場合を考えましょう。
updated document
Yuki Kimoto authored on 2011-01-20
103

            
104
    select * from book where author = ?;
105

            
106
これはとても大変な作業なので、通常はL<SQL::Abstract>を動的に生成してくれる
107
モジュールを利用することになります。
108

            
109
L<DBIx::Custom>はさらに簡単で便利な方法を用意しています。
110

            
update pod
Yuki Kimoto authored on 2011-01-28
111
    # Whereオブジェクト
updated document
Yuki Kimoto authored on 2011-01-20
112
    my $where = $dbi->where;
update pod
Yuki Kimoto authored on 2011-01-28
113
    
114
    # 検索条件
updated document
Yuki Kimoto authored on 2011-01-20
115
    $where->clause(
116
        ['and', '{= title}', {'= author'}]
117
    );
update pod
Yuki Kimoto authored on 2011-01-28
118
    
119
    # 必要な列を自動的に選択するための設定
120
    $where->param({title => 'Perl'});
updated document
Yuki Kimoto authored on 2011-01-20
121

            
update pod
Yuki Kimoto authored on 2011-01-28
122
    # SQLへのWhere句の埋め込み
updated document
Yuki Kimoto authored on 2011-01-20
123
    my $sql = "select * from book $where";
124

            
125
詳しい説明は後ほど行いますが、上記のように記述すれば、
126
L<DBIx::Custom>では選択的な検索条件を持つWhere句を生成することができます。
127
検索条件が入れ子になった構造やorについても対応しています。
128

            
129
=item 4. 挿入、更新、削除、選択を行うためのメソッド
130

            
update pod
Yuki Kimoto authored on 2011-01-30
131
L<DBIx::Custom>では挿入、更新、削除、選択を行うための
132
メソッドを提供しています。
133
C<insert()>, C<update()>, C<delete()>,C<select()>などがあります。
updated document
Yuki Kimoto authored on 2011-01-20
134

            
135
    my $param = {title => 'Perl', author => 'Ken'};
136
    $dbi->insert(table => 'book', param => $param);
137

            
update pod
Yuki Kimoto authored on 2011-01-30
138
=item 5. テーブルのためのメソッドの登録
updated document
Yuki Kimoto authored on 2011-01-20
139

            
update pod
Yuki Kimoto authored on 2011-01-30
140
テーブルのためにメソッドを登録することができます。
updated document
Yuki Kimoto authored on 2011-01-20
141

            
update pod
Yuki Kimoto authored on 2011-01-30
142
    $dbi->table('book')->method(
updated document
Yuki Kimoto authored on 2011-01-20
143
        list => sub {
144
            ...
145
        },
update pod
Yuki Kimoto authored on 2011-01-30
146
        something => sub {
147
            ...
updated document
Yuki Kimoto authored on 2011-01-20
148
        }
149
    );
150

            
update pod
Yuki Kimoto authored on 2011-01-30
151
メソッドの利用です。
updated document
Yuki Kimoto authored on 2011-01-20
152

            
153
    $dbi->table('book')->list;
added experimental expand me...
yuki-kimoto authored on 2010-10-20
154

            
update pod
Yuki Kimoto authored on 2011-01-30
155
多くのO/Rマッパではテーブルのためのクラスを作成する必要がありますが、
156
L<DBIx::Custom>では簡単です。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
157

            
updated document
Yuki Kimoto authored on 2011-01-20
158
=back
159

            
update pod
Yuki Kimoto authored on 2011-01-30
160
L<DBIx::Custom>はとても便利です。
161
興味をもたれた方は、続きをご覧になってみてください。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
162

            
163
=head2 1. データベースへの接続
164

            
update pod
Yuki Kimoto authored on 2011-01-30
165
L<DBIx::Custom>を読み込みます。
updated document
Yuki Kimoto authored on 2011-01-23
166

            
167
    use DBIx::Custom;
168

            
update pod
Yuki Kimoto authored on 2011-01-30
169
データベースに接続するにはC<connect()>メソッドを使用します。
170
戻り値はL<DBIx::Custom>オブジェクトです。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
171

            
updated document
Yuki Kimoto authored on 2011-01-23
172
    my $dbi = DBIx::Custom->connect(
update pod
Yuki Kimoto authored on 2011-01-30
173
        data_source => "dbi:mysql:database=bookstore",
updated document
Yuki Kimoto authored on 2011-01-23
174
        user => 'ken',
175
        password => '!LFKD%$&',
176
        dbi_options => {mysql_enable_utf8 => 1}
177
    );
added experimental expand me...
yuki-kimoto authored on 2010-10-20
178

            
update pod
Yuki Kimoto authored on 2011-01-30
179
C<data_source>はデータベースシステムに応じたものである必要があります。
180
以下はデータソースのサンプルです。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
181

            
updated document
Yuki Kimoto authored on 2011-01-23
182
B<MySQL>
added experimental expand me...
yuki-kimoto authored on 2010-10-20
183

            
deprecated DBIx::Custom::MyS...
root authored on 2010-11-26
184
    "dbi:mysql:database=$database"
185
    "dbi:mysql:database=$database;host=$hostname;port=$port"
added experimental expand me...
yuki-kimoto authored on 2010-10-20
186

            
updated document
Yuki Kimoto authored on 2011-01-23
187
B<SQLite>
deprecated DBIx::Custom::MyS...
root authored on 2010-11-26
188

            
189
    "dbi:SQLite:dbname=$database"
190
    "dbi:SQLite:dbname=:memory:"
191

            
updated document
Yuki Kimoto authored on 2011-01-23
192
B<PostgreSQL>
deprecated DBIx::Custom::MyS...
root authored on 2010-11-26
193

            
194
    "dbi:Pg:dbname=$dbname"
195

            
updated document
Yuki Kimoto authored on 2011-01-23
196
B<Oracle>
deprecated DBIx::Custom::MyS...
root authored on 2010-11-26
197

            
198
    "dbi:Oracle:$dbname"
199
    "dbi:Oracle:host=$host;sid=$sid"
200

            
updated document
Yuki Kimoto authored on 2011-01-23
201
B<ODBC(Microsoft Access)>
deprecated DBIx::Custom::MyS...
root authored on 2010-11-26
202

            
203
    "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=hoge.mdb"
204

            
updated document
Yuki Kimoto authored on 2011-01-23
205
B<ODBC(SQL Server)>
deprecated DBIx::Custom::MyS...
root authored on 2010-11-26
206

            
207
   "dbi:ODBC:driver={SQL Server};Server=(local);database=test;Trusted_Connection=yes;AutoTranslate=No;"
added experimental expand me...
yuki-kimoto authored on 2010-10-20
208

            
update pod
Yuki Kimoto authored on 2011-01-30
209
認証が必要な場合は、C<user>とC<password>を指定できます。
updated document
Yuki Kimoto authored on 2011-01-23
210

            
update pod
Yuki Kimoto authored on 2011-01-30
211
L<DBIx::Custom>はL<DBI>のラッパークラスです。
212
L<DBI>のデータベースハンドルは取得するにあhC<dbh()>を使用します。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
213

            
214
    my $dbh = $dbi->dbh;
215

            
updated document
Yuki Kimoto authored on 2011-01-23
216
L<DBIx::Custom>ではデータベースハンドル属性にはデフォルトで次のものが設定されます。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
217
    
218
    $dbi->dbh->{RaiseError} = 1;
219
    $dbi->dbh->{PrintError} = 0;
220
    $dbi->dbh->{AutoCommit} = 1;
221

            
update pod
Yuki Kimoto authored on 2011-01-30
222
致命的なエラーが起こるとプログラムは終了します。
223
SQLが実行されると自動的にコミットされます。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
224

            
updated document
Yuki Kimoto authored on 2011-01-23
225
=head2 2. 挿入、更新、削除、選択のためのメソッド
added experimental expand me...
yuki-kimoto authored on 2010-10-20
226

            
update pod
Yuki Kimoto authored on 2011-01-31
227
下記のメソッドがあります。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
228

            
update pod
Yuki Kimoto authored on 2011-01-31
229
=head3 行の挿入 C<insert()>
added experimental expand me...
yuki-kimoto authored on 2010-10-20
230

            
update pod
Yuki Kimoto authored on 2011-01-31
231
データベースに行を挿入するにはC<insert()>を使用します。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
232

            
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
233
    $dbi->insert(table  => 'book',
added experimental expand me...
yuki-kimoto authored on 2010-10-20
234
                 param  => {title => 'Perl', author => 'Ken'});
235

            
update pod
Yuki Kimoto authored on 2011-01-31
236
C<table>はテーブル名、C<param>は挿入する行のデータです。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
237

            
update pod
Yuki Kimoto authored on 2011-01-31
238
次のSQLが実行されます。
updated document
Yuki Kimoto authored on 2011-01-23
239

            
240
    insert into (title, author) values (?, ?);
added experimental expand me...
yuki-kimoto authored on 2010-10-20
241

            
update pod
Yuki Kimoto authored on 2011-01-26
242
=head3 データの更新 C<update()>
added experimental expand me...
yuki-kimoto authored on 2010-10-20
243

            
update pod
Yuki Kimoto authored on 2011-01-31
244
データベースの行を更新するには、C<update()>を使用します。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
245

            
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
246
    $dbi->update(table  => 'book', 
added experimental expand me...
yuki-kimoto authored on 2010-10-20
247
                 param  => {title => 'Perl', author => 'Ken'}, 
248
                 where  => {id => 5});
249

            
update pod
Yuki Kimoto authored on 2011-01-31
250
C<table>はテーブル名、C<param>は更新データ、C<where>は
251
条件です。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
252

            
update pod
Yuki Kimoto authored on 2011-01-31
253
次のSQLが実行されます。
updated document
Yuki Kimoto authored on 2011-01-23
254

            
255
    update book set title = ?, author = ?;
added experimental expand me...
yuki-kimoto authored on 2010-10-20
256

            
update pod
Yuki Kimoto authored on 2011-01-31
257
安全のためC<where>のないupdate()を実効することはできません。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
258
もしすべての行を更新したい場合は
updated document
Yuki Kimoto authored on 2011-01-23
259
C<update_all()>を使用してください。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
260

            
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
261
    $dbi->update_all(table  => 'book', 
added experimental expand me...
yuki-kimoto authored on 2010-10-20
262
                     param  => {title => 'Perl', author => 'Ken'});
263

            
update pod
Yuki Kimoto authored on 2011-01-26
264
=head3 データの削除 C<delete()>
added experimental expand me...
yuki-kimoto authored on 2010-10-20
265

            
update pod
Yuki Kimoto authored on 2011-01-31
266
データベースの行を1件削除するには、C<delete()>を使用します。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
267

            
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
268
    $dbi->delete(table  => 'book',
added experimental expand me...
yuki-kimoto authored on 2010-10-20
269
                 where  => {author => 'Ken'});
270

            
update pod
Yuki Kimoto authored on 2011-01-31
271
C<table>はテーブル名、C<where>は条件です。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
272

            
update pod
Yuki Kimoto authored on 2011-01-31
273
次のSQLが実行されます。
updated document
Yuki Kimoto authored on 2011-01-23
274

            
275
    delete from book where id = ?;
added experimental expand me...
yuki-kimoto authored on 2010-10-20
276

            
update pod
Yuki Kimoto authored on 2011-01-31
277
安全のためC<where>のないC<delete()>を実効することはできません。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
278
もしすべての行を削除したい場合は
updated document
Yuki Kimoto authored on 2011-01-23
279
C<delete_all()>を使用してください。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
280

            
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
281
    $dbi->delete_all(table  => 'book');
added experimental expand me...
yuki-kimoto authored on 2010-10-20
282

            
update pod
Yuki Kimoto authored on 2011-01-26
283
=head3 データの選択 C<select()>
added experimental expand me...
yuki-kimoto authored on 2010-10-20
284

            
updated document
Yuki Kimoto authored on 2011-01-23
285
行を選択するにはC<select()>を使用します。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
286

            
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
287
    my $result = $dbi->select(table => 'book');
added experimental expand me...
yuki-kimoto authored on 2010-10-20
288

            
update pod
Yuki Kimoto authored on 2011-01-31
289
次のSQLが実行されます。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
290

            
updated document
Yuki Kimoto authored on 2011-01-23
291
    select * from book;
added experimental expand me...
yuki-kimoto authored on 2010-10-20
292

            
update pod
Yuki Kimoto authored on 2011-01-31
293
戻り値はL<DBIx::Custom::Result>
updated document
Yuki Kimoto authored on 2011-01-23
294
オブジェクトです。行をフェッチするにはC<fetch()>を使用します。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
295

            
296
    while (my $row = $result->fetch) {
297
        my $title  = $row->[0];
298
        my $author = $row->[1];
299
    }
300

            
update pod
Yuki Kimoto authored on 2011-01-31
301
L<DBIx::Custom::Result>についてはL<3. 行のフェッチ/"3. 行のフェッチ">を見てください。
updated document
Yuki Kimoto authored on 2011-01-23
302

            
update pod
Yuki Kimoto authored on 2011-01-31
303
サンプルを続けます。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
304

            
305
    my $result = $dbi->select(
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
306
        table  => 'book',
updated document
Yuki Kimoto authored on 2011-01-23
307
        column => ['author',  'title'],
added experimental expand me...
yuki-kimoto authored on 2010-10-20
308
        where  => {author => 'Ken'}
309
    );
310

            
update pod
Yuki Kimoto authored on 2011-01-31
311
C<column>は列名、C<where>は条件です。
312

            
313
次のSQLが実行されます。
updated document
Yuki Kimoto authored on 2011-01-23
314

            
315
    select author, title from book where author = ?;
added experimental expand me...
yuki-kimoto authored on 2010-10-20
316

            
update pod
Yuki Kimoto authored on 2011-01-31
317
次のサンプルです。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
318

            
319
    my $result = $dbi->select(
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
320
        table    => ['book', 'rental'],
updated document
Yuki Kimoto authored on 2011-01-23
321
        where    => {book.name => 'Perl'},
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
322
        relation => {'book.id' => 'rental.book_id'}
added experimental expand me...
yuki-kimoto authored on 2010-10-20
323
    );
324

            
update pod
Yuki Kimoto authored on 2011-01-31
325
C<relation>テーブル間の関係です。これは内部結合です。
326

            
327
次のSQLが実行されます。
328

            
updated document
Yuki Kimoto authored on 2011-01-23
329
bookテーブルのid列とrentalテーブルのbook_idが関連付けられます。
update pod
Yuki Kimoto authored on 2011-01-31
330
次のSQLが実行されます。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
331

            
updated document
Yuki Kimoto authored on 2011-01-23
332
    select * from book, rental where book.name = ? and book.id = rental.book_id;
added experimental expand me...
yuki-kimoto authored on 2010-10-20
333

            
update pod
Yuki Kimoto authored on 2011-01-31
334
次のサンプルです。
added experimental expand me...
yuki-kimoto authored on 2010-10-20
335

            
336
    my $result = $dbi->select(
remove DBIx::Custom::Model
Yuki Kimoto authored on 2011-01-12
337
        table  => 'book',
added experimental expand me...
yuki-kimoto authored on 2010-10-20
338
        where  => {author => 'Ken'},
updated document
Yuki Kimoto authored on 2011-01-23
339
        append => 'for update',
added experimental expand me...
yuki-kimoto authored on 2010-10-20
340
    );
341

            
update pod
Yuki Kimoto authored on 2011-01-31
342
C<append>はSQLの末尾に追加される文字列です。
343

            
344
次のSQLが実行されます。
updated document
Yuki Kimoto authored on 2011-01-20
345

            
updated document
Yuki Kimoto authored on 2011-01-23
346
    select * book where author = ? for update;
updated document
Yuki Kimoto authored on 2011-01-20
347

            
updated document
Yuki Kimoto authored on 2011-01-23
348
またC<append>は、C<select>だけでなくC<insert()>、C<update()>、C<update_all()>
349
C<delete()>、C<delete_all()>、C<select()>で使用することもできます。
updated document
Yuki Kimoto authored on 2011-01-20
350

            
update pod
Yuki Kimoto authored on 2011-02-11
351
C<column>とC<table>を使用する代わりに、C<selection>を使用することも
352
できます。列名とテーブル名をまとめて指定する場合に利用します。
353
    
354
    my $selection = <<"EOS";
355
    title, author, company_name
356
    from book inner join company on book.company_id = company.id
357
    EOS
358

            
359
    $dbi->select(selection => $selection);
360

            
361
C<selection>においてはwhere句を利用できないということに注意してください。
362
"inner join"などの句を利用してください。
363

            
update pod
Yuki Kimoto authored on 2011-01-26
364
=head3 SQLの実行 C<execute()>
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
365

            
update pod
Yuki Kimoto authored on 2011-01-31
366
SQLを実行するにはC<execute()>を使用します。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
367

            
368
    $dbi->execute("select * from book;");
369

            
update pod
Yuki Kimoto authored on 2011-01-31
370
タグを処理してSQLを実行します。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
371

            
372
    $dbi->execute(
373
        "select * from book {= title} and {= author};"
374
        param => {title => 'Perl', author => 'Ken'}
375
    );
376

            
update pod
Yuki Kimoto authored on 2011-01-31
377
次のSQLが実行されます。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
378

            
379
    select * from book title = ? and author = ?;
380

            
update pod
Yuki Kimoto authored on 2011-01-31
381
プレースホルダにtitleとauthorの値が埋め込まれます。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
382

            
update pod
Yuki Kimoto authored on 2011-01-31
383
タグについてはL<5. タグ/"5. タグ">を見てください。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
384

            
update pod
Yuki Kimoto authored on 2011-01-31
385
またC<execute()>のSQLの末尾にはセミコロンを置く必要はありません。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
386

            
387
    $dbi->execute('select * from book');
388

            
updated document
Yuki Kimoto authored on 2011-01-20
389
=head2 3. 行のフェッチ
390

            
updated document
Yuki Kimoto authored on 2011-01-23
391
C<select()>メソッドの戻り値はL<DBIx::Custom::Result>オブジェクトです。
update pod
Yuki Kimoto authored on 2011-02-04
392
行をフェッチするためのさまざまなメソッドがあります。
updated document
Yuki Kimoto authored on 2011-01-20
393

            
update pod
Yuki Kimoto authored on 2011-01-26
394
=head3 1行づつフェッチ(配列) C<fetch()>
updated document
Yuki Kimoto authored on 2011-01-20
395

            
updated document
Yuki Kimoto authored on 2011-01-23
396
一行フェッチして配列のリファレンスに格納するにはC<fetch()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
397

            
update pod
Yuki Kimoto authored on 2011-02-04
398
    my $row = $result->fetch;
399

            
400
以下のようにすべての行を取得することができます。
401

            
updated document
Yuki Kimoto authored on 2011-01-20
402
    while (my $row = $result->fetch) {
updated document
Yuki Kimoto authored on 2011-01-23
403
        my $title  = $row->[0];
404
        my $author = $row->[1];
updated document
Yuki Kimoto authored on 2011-01-20
405
    }
406

            
update pod
Yuki Kimoto authored on 2011-01-26
407
=head3 最初の行だけフェッチ(配列) C<fetch_first()>
updated document
Yuki Kimoto authored on 2011-01-20
408

            
updated document
Yuki Kimoto authored on 2011-01-23
409
一行だけフェッチして配列のリファレンスに格納するにはC<fetch_first()>
410
を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
411

            
412
    my $row = $result->fetch_first;
413

            
update pod
Yuki Kimoto authored on 2011-02-04
414
ステートメントハンドルのC<finish()>が実行される
415
ので残りの行をフェッチできません。
updated document
Yuki Kimoto authored on 2011-01-20
416

            
update pod
Yuki Kimoto authored on 2011-01-26
417
=head3 複数行を順にフェッチ(配列) C<fetch_multi()>
updated document
Yuki Kimoto authored on 2011-01-20
418

            
updated document
Yuki Kimoto authored on 2011-01-23
419
複数行をフェッチして配列のリファレンスを要素に持つ
420
配列のリファレンスに格納するにはC<fetch_multi()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
421

            
updated document
Yuki Kimoto authored on 2011-01-23
422
    while (my $rows = $result->fetch_multi(2)) {
423
        my $title0   = $rows->[0][0];
424
        my $author0  = $rows->[0][1];
425
        
426
        my $title1   = $rows->[1][0];
427
        my $author1  = $rows->[1][1];
updated document
Yuki Kimoto authored on 2011-01-20
428
    }
429

            
update pod
Yuki Kimoto authored on 2011-02-04
430
取り出したい行数を引数に指定します。
updated document
Yuki Kimoto authored on 2011-01-23
431

            
update pod
Yuki Kimoto authored on 2011-02-04
432
次のようなデータを取得できます。
updated document
Yuki Kimoto authored on 2011-01-23
433

            
434
    [
435
        ['Perl', 'Ken'],
436
        ['Ruby', 'Mark']
437
    ]
438

            
update pod
Yuki Kimoto authored on 2011-01-26
439
=head3 すべての行をフェッチ(配列) C<fetch_all>
updated document
Yuki Kimoto authored on 2011-01-20
440

            
updated document
Yuki Kimoto authored on 2011-01-23
441
すべての行をフェッチして配列のリファレンスを要素に持つ
442
配列のリファレンスに格納するにはC<fetch_all()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
443

            
444
    my $rows = $result->fetch_all;
445

            
updated document
Yuki Kimoto authored on 2011-01-23
446
すべての行を格納した次のようなデータを取得できます。
447

            
448
    [
449
        ['Perl', 'Ken'],
450
        ['Ruby', 'Mark']
451
    ]
452

            
update pod
Yuki Kimoto authored on 2011-01-26
453
=head3 1行づつフェッチ(ハッシュ) C<fetch_hash()>
updated document
Yuki Kimoto authored on 2011-01-20
454

            
updated document
Yuki Kimoto authored on 2011-01-23
455
一行フェッチしてハッシュのリファレンスに格納するにはC<fetch_hash()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
456

            
457
    while (my $row = $result->fetch_hash) {
458
        my $title  = $row->{title};
459
        my $author = $row->{author};
460
    }
461

            
update pod
Yuki Kimoto authored on 2011-01-26
462
=head3 最初の行だけフェッチ(ハッシュ) C<fetch_hash_first()>
updated document
Yuki Kimoto authored on 2011-01-20
463

            
updated document
Yuki Kimoto authored on 2011-01-23
464
一行だけフェッチしてハッシュのリファレンスに格納するには
465
C<fetch_hash_first()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
466

            
467
    my $row = $result->fetch_hash_first;
468

            
update pod
Yuki Kimoto authored on 2011-02-04
469
ステートメントハンドルのC<finish()>が実行される
470
ので残りの行をフェッチできません。
updated document
Yuki Kimoto authored on 2011-01-20
471

            
update pod
Yuki Kimoto authored on 2011-02-04
472
=head3 複数行をフェッチ(ハッシュ) C<fetch_hash_multi()>
updated document
Yuki Kimoto authored on 2011-01-20
473

            
updated document
Yuki Kimoto authored on 2011-01-23
474
複数行をフェッチしてハッシュのリファレンスを要素に持つ
475
配列のリファレンスに格納するにはC<fetch_hash_multi()>
476
を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
477

            
478
    while (my $rows = $result->fetch_hash_multi(5)) {
updated document
Yuki Kimoto authored on 2011-01-23
479
        my $title0   = $rows->[0]{title};
480
        my $author0  = $rows->[0]{author};
481
        my $title1  = $rows->[1]{title};
482
        my $author1 = $rows->[1]{author};
updated document
Yuki Kimoto authored on 2011-01-20
483
    }
484

            
updated document
Yuki Kimoto authored on 2011-01-23
485
引数には取り出したい行数を指定します。
486

            
update pod
Yuki Kimoto authored on 2011-02-04
487
次のようなデータを取得できます。
updated document
Yuki Kimoto authored on 2011-01-23
488

            
489
    [
490
        {title => 'Perl', author => 'Ken'},
491
        {title => 'Ruby', author => 'Mark'}
492
    ]
493

            
update pod
Yuki Kimoto authored on 2011-01-26
494
=head3 すべての行をフェッチ(ハッシュ) C<fetch_hash_all()>
updated document
Yuki Kimoto authored on 2011-01-20
495

            
updated document
Yuki Kimoto authored on 2011-01-23
496
すべての行をフェッチしてハッシュのリファレンスを要素に持つ
497
配列のリファレンスに格納するにはC<fetch_hash_all()>
498
を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
499

            
500
    my $rows = $result->fetch_hash_all;
501

            
update pod
Yuki Kimoto authored on 2011-02-04
502
次のようなデータを取得できます。
updated document
Yuki Kimoto authored on 2011-01-23
503

            
504
    [
505
        {title => 'Perl', author => 'Ken'},
506
        {title => 'Ruby', author => 'Mark'}
507
    ]
508

            
update pod
Yuki Kimoto authored on 2011-01-26
509
=head3 ステートメントハンドル C<sth()>
updated document
Yuki Kimoto authored on 2011-01-23
510

            
update pod
Yuki Kimoto authored on 2011-02-04
511
ステートメントハンドル取得したい場合は
512
<sth()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
513

            
514
    my $sth = $result->sth;
515

            
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
516
=head2 4. フィルタリング
517

            
update pod
Yuki Kimoto authored on 2011-02-07
518
L<DBIx::Custom>は値のフィルタリング機能を提供します。
519

            
520
たとえば、データをデータベースに登録するときは
521
L<Time::Piece>オブジェクトからデータベースの日付のフォーマットに、
522
データベースからデータを取得するときは、
523
データベースの日付のフォーマットからL<Time::Piece>オブジェクト
524
に変換を行いたいと思うことでしょう。
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
525

            
update pod
Yuki Kimoto authored on 2011-01-26
526
=head3 フィルタの登録 C<register_filter()>
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
527

            
528
フィルタを登録するにはC<register_filter()>を使用します。
529

            
530
    $dbi->register_filter(
531
        # Time::Piece object to DATE format
532
        tp_to_date => sub {
533
            my $date = shift;
534

            
535
            return '0000-00-00' unless $tp;
536
            return $tp->strftime('%Y-%m-%d');
537
        },
538
        
539
        # DATE to Time::Piece object
540
        date_to_tp => sub {
541
            my $date = shift;
542

            
543
            return if $date eq '0000-00-00';
544
            return Time::Piece->strptime($date, '%Y-%m-%d');
545
        },
546
    );
547

            
548
登録したフィルタはC<apply_filter()>などで利用することができます。
549

            
update pod
Yuki Kimoto authored on 2011-01-26
550
=head3 フィルタの適用 C<apply_filter()>
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
551

            
552
作成したフィルタを適用するには、C<apply_filter()>を使用します。
553

            
554
    $dbi->apply_filter('book',
555
        issue_date => {out => 'tp_to_date', in => 'date_to_tp'},
556
        first_issue_date => {out => 'tp_to_date', in => 'date_to_tp'}
557
    );
558

            
update pod
Yuki Kimoto authored on 2011-02-07
559
第一引数はテーブル名です。第1引数より後の引数は、列名とフィルタルールのペアを記述します。
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
560
フィルタルールのoutには、データベースにデータを送信するときに適用するフィルタを、
561
フィルタルールのinには、データベースからデータを取得するときに適用するフィルタを
update pod
Yuki Kimoto authored on 2011-02-07
562
記述します。
563

            
564
フィルタとしてコードリファレンスを
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
565
指定することもできます。
566

            
567
    issue_date => {out => sub { ... }, in => sub { ... }}
568

            
569
適用されたフィルタはC<insert()>、C<update()>、C<update_all()>、C<delete()>、
570
C<delete_all()>、C<select()>で有効になります。
571

            
572
    my $tp = Time::Piece->strptime('2010/10/14', '%Y/%m/%d');
573
    my $result = $dbi->select(table => 'book', where => {issu_date => $tp});
574

            
575
データベースにデータが送信されるときに、L<Time::Piece>オブジェクトは
576
データベースの日付のフォーマット「2010-10-14」に変換されます。
577

            
update pod
Yuki Kimoto authored on 2011-02-07
578
データをフェッチするときには、データベースの日付のフォーマットは
579
L<Time::Piece>オブジェクトに変換されます。
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
580

            
581
    my $row = $resutl->fetch_hash_first;
582
    my $tp = $row->{issue_date};
583

            
update pod
Yuki Kimoto authored on 2011-02-07
584
テーブル名を含む列名を使用することもできます。
removed experimental expand
Yuki Kimoto authored on 2011-01-26
585

            
586
    $dbi->select(
587
        table => 'book',
588
        where => {'book.title' => 'Perl', 'book.author' => 'Ken'}
589
    );
590

            
update pod
Yuki Kimoto authored on 2011-02-11
591
フェッチを行う場合に"TABLE__COLUMN"という名前を使用した場合もフィルタは
592
有効になります。
593

            
594
    my $result = $dbi->execute(
595
       "select issue_date as book__issue_date from book");
596

            
597
C<in>フィルタの後に実行されるC<end>フィルタを適用することもできます。
598

            
599
    $dbi->apply_filter('book',
600
        issue_date => {out => 'tp_to_date', in => 'date_to_tp',
601
                       end => 'tp_to_displaydate'},
602
    );
603

            
update pod
Yuki Kimoto authored on 2011-02-07
604
=head3 個別のフィルタ C<filter>
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
605

            
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
606
個別にフィルタを適用することもできます。
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
607
個別のフィルタはC<apply_filter()>で適用したフィルタを上書きます。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
608

            
update pod
Yuki Kimoto authored on 2011-02-07
609
データを送信する場合に個別のフィルタを適用するには、C<filter>オプションを使用します。
610
このオプションはC<insert()>、C<update()>、
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
611
C<update_all()>、C<delete()>、C<delete_all()>、C<select()>、C<execute()>
612
で使用することができます。
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
613

            
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
614
    $dbi->insert(
615
        table => 'book',
616
        param => {issue_date => $tp, first_issue_date => $tp},
617
        filter => {issue_date => 'tp_to_date', first_issue_date => 'tp_to_date'}
618
    );
619

            
620
C<execute()>の例を示します。
621

            
622
my $sql = <<"EOS";
623
select YEAR(issue_date) as issue_year
624
from book
625
where YEAR(issue_date) = {? issue_year}
626
EOS
627
   
628
    my $result = $dbi->execute(
629
        $sql,
630
        param => {issue_year => '2010'},
631
        filter => {issue_year => 'tp_to_year'}
632
    );
633

            
update pod
Yuki Kimoto authored on 2011-02-07
634
行をフェッチするときにも個別のフィルタを適用することができます。
635
C<DBIx::Custom::Result>のC<filter()>を使用します。
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
636

            
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
637
    $result->filter(issue_year => 'year_to_tp');
638

            
update pod
Yuki Kimoto authored on 2011-02-07
639
=head3 最後のフィルタリング : C<end_filter()>
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
640

            
update pod
Yuki Kimoto authored on 2011-02-07
641
最後にもうひとつフィルタを追加することができます。
642
最終的な出力を作成する場合に便利です。
643
最後のフィルタを登録するにはC<end_filter()>を使用します。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
644

            
645
    $result->end_filter(issue_date => sub {
646
        my $tp = shift;
647
        
648
        return '' unless $tp;
649
        return $tp->strftime('%Y/%m/%d %h:%m:%s (%a)');
650
    });
651

            
update pod
Yuki Kimoto authored on 2011-02-07
652
この例ではL<Time::Piece>オブジェクトを読みやすい書式に変換しています。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
653

            
update pod
Yuki Kimoto authored on 2011-02-07
654
=head3 フィルタの適用の自動化 C<each_column()>
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
655

            
update pod
Yuki Kimoto authored on 2011-02-07
656
日付型の列は自動的にフィルタを適用できると便利です。
657
列のすべての情報を処理するためのC<each_column()>を利用することができます。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
658

            
659
    $dbi->each_column(
660
        sub {
661
            my ($self, $table, $column, $info) = @_;
662
            
663
            my $type = $info->{TYPE_NAME};
664
            
665
            my $filter = $type eq 'DATE'     ? {out => 'tp_to_date', in => 'date_to_tp'}
666
                       : $type eq 'DATETIME' ? {out => 'tp_to_datetime', in => 'datetime_to_tp'}
667
                                             : undef;
668
            
669
            $self->apply_filter($table, $column, $filter)
670
              if $filter;
671
        }
672
    );
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
673

            
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
674
each_columnはコールバックを受け取ります。コールバックの引数は
update pod
Yuki Kimoto authored on 2011-02-07
675
L<DBIx::Custom>オブジェクト、テーブル名、列名、列の情報です。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
676
列の型名の情報をもとに自動的に、フィルタを適用しています。
677

            
renamed dbi_options to dbi_o...
Yuki Kimoto authored on 2011-01-23
678
=head2 5. タグ
updated document
Yuki Kimoto authored on 2011-01-20
679

            
update pod
Yuki Kimoto authored on 2011-02-07
680
=head3 タグの基本
updated document
Yuki Kimoto authored on 2011-01-20
681

            
update pod
Yuki Kimoto authored on 2011-02-07
682
SQLの中にタグを埋め込むことができます。
updated document
Yuki Kimoto authored on 2011-01-20
683

            
update pod
Yuki Kimoto authored on 2011-01-26
684
    select * from book where {= title} and {like author};
updated document
Yuki Kimoto authored on 2011-01-20
685

            
update pod
Yuki Kimoto authored on 2011-01-26
686
{= title}と{like author}の部分がタグです。タグは次のような形式
687
を持ちます。
updated document
Yuki Kimoto authored on 2011-01-20
688

            
update pod
Yuki Kimoto authored on 2011-01-26
689
    {タグ名 引数1 引数2 ...}
690
    
691
タグはC<{>で始まり、C<}>で終わります。最初のC<{>とタグ名の間
692
には空白を挿入しないよう注意してください。
updated document
Yuki Kimoto authored on 2011-01-20
693

            
update pod
Yuki Kimoto authored on 2011-02-07
694
C<{>とC<}>は予約語になっています。
695
もし利用したい場合は\でエスケープを行う必要があります。
updated document
Yuki Kimoto authored on 2011-01-20
696

            
update pod
Yuki Kimoto authored on 2011-01-26
697
    select from book \\{ ... \\}
698

            
699
C<\>自体がPerlのエスケープ文字ですので、
update pod
Yuki Kimoto authored on 2011-02-07
700
C<\>は二つ必要になります。
update pod
Yuki Kimoto authored on 2011-01-26
701

            
update pod
Yuki Kimoto authored on 2011-02-07
702
タグはSQLが実行される前に展開されます。
update pod
Yuki Kimoto authored on 2011-01-26
703

            
704
    select * from book where title = ? and author like ?;
updated document
Yuki Kimoto authored on 2011-01-20
705

            
update pod
Yuki Kimoto authored on 2011-01-26
706
タグを含むSQLを実行するにはC<execute()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
707

            
update pod
Yuki Kimoto authored on 2011-01-26
708
    my $sql = "select * from book where {= author} and {like title};"
709
    $dbi->execute($sql, param => {title => 'Perl', author => '%Ken%'});
updated document
Yuki Kimoto authored on 2011-01-20
710

            
update pod
Yuki Kimoto authored on 2011-01-26
711
C<param>オプションを使って、プレースホルダに埋め込みたい値を
712
ハッシュリファレンスで指定することができます。
updated document
Yuki Kimoto authored on 2011-01-20
713

            
update pod
Yuki Kimoto authored on 2011-02-07
714
C<execute()>においてもC<filter>を指定することができます。
update pod
Yuki Kimoto authored on 2011-01-26
715

            
716
    $dbi->execute($sql, param => {title => 'Perl', author => '%Ken%'}
717
                  filter => {title => 'to_something');
718

            
update pod
Yuki Kimoto authored on 2011-02-07
719
C<execute>ではC<apply_filter()>で適用されたフィルタ
720
は有効ではないということに注意してください。
update pod
Yuki Kimoto authored on 2011-01-26
721
C<apply_filter()>で適用されたフィルタを有効にするには、
update pod
Yuki Kimoto authored on 2011-02-11
722
C<table>タグを利用します。
update pod
Yuki Kimoto authored on 2011-01-26
723

            
update pod
Yuki Kimoto authored on 2011-02-11
724
    my $sql = "select * from {table book} where {= author} and {like title};"
update pod
Yuki Kimoto authored on 2011-01-26
725

            
update pod
Yuki Kimoto authored on 2011-01-31
726
=head3 タグ一覧
update pod
Yuki Kimoto authored on 2011-01-26
727

            
update pod
Yuki Kimoto authored on 2011-02-11
728
=head4 C<table>
729

            
730
    {table NAME} -> NAME
731

            
732
これはSQLの中でテーブル名を指定する場合に利用します。
733
テーブル名を指定することによって、C<apply_filter()>
734
によるフィルタリングが有効になります。
735

            
update pod
Yuki Kimoto authored on 2011-01-31
736
=head4 C<?>
update pod
Yuki Kimoto authored on 2011-01-26
737

            
738
    {? NAME}    ->   ?
739

            
update pod
Yuki Kimoto authored on 2011-01-31
740
=head4 C<=>
update pod
Yuki Kimoto authored on 2011-01-26
741

            
742
    {= NAME}    ->   NAME = ?
743

            
update pod
Yuki Kimoto authored on 2011-01-31
744
=head4 C<E<lt>E<gt>>
update pod
Yuki Kimoto authored on 2011-01-26
745

            
746
    {<> NAME}   ->   NAME <> ?
747

            
update pod
Yuki Kimoto authored on 2011-01-31
748
=head4 C<E<lt>>
update pod
Yuki Kimoto authored on 2011-01-26
749

            
750
    {< NAME}    ->   NAME < ?
751

            
update pod
Yuki Kimoto authored on 2011-01-31
752
=head4 C<E<gt>>
update pod
Yuki Kimoto authored on 2011-01-26
753

            
754
    {> NAME}    ->   NAME > ?
755

            
update pod
Yuki Kimoto authored on 2011-01-31
756
=head4 C<E<gt>=>
update pod
Yuki Kimoto authored on 2011-01-26
757

            
758
    {>= NAME}   ->   NAME >= ?
759

            
update pod
Yuki Kimoto authored on 2011-01-31
760
=head4 C<E<lt>=>
update pod
Yuki Kimoto authored on 2011-01-26
761

            
762
    {<= NAME}   ->   NAME <= ?
763

            
update pod
Yuki Kimoto authored on 2011-01-31
764
=head4 C<like>
update pod
Yuki Kimoto authored on 2011-01-26
765

            
766
    {like NAME}   ->   NAME like ?
767

            
update pod
Yuki Kimoto authored on 2011-01-31
768
=head4 C<in>
update pod
Yuki Kimoto authored on 2011-01-26
769

            
770
    {in NAME COUNT}   ->   NAME in [?, ?, ..]
771

            
update pod
Yuki Kimoto authored on 2011-01-31
772
=head4 C<insert_param>
update pod
Yuki Kimoto authored on 2011-01-26
773

            
updated document
Yuki Kimoto authored on 2011-01-20
774
    {insert_param NAME1 NAME2}   ->   (NAME1, NAME2) values (?, ?)
update pod
Yuki Kimoto authored on 2011-01-26
775

            
update pod
Yuki Kimoto authored on 2011-01-31
776
=head4 C<update_param>
update pod
Yuki Kimoto authored on 2011-01-26
777

            
updated document
Yuki Kimoto authored on 2011-01-20
778
    {update_param NAME1 NAME2}   ->   set NAME1 = ?, NAME2 = ?
779

            
update pod
Yuki Kimoto authored on 2011-01-31
780
=head3 同名の列の扱い
updated document
Yuki Kimoto authored on 2011-01-20
781

            
update pod
Yuki Kimoto authored on 2011-02-07
782
同名の列を含むタグがある場合でも大丈夫です。
783
二つの日付で比較しなければならない場合を
update pod
Yuki Kimoto authored on 2011-01-26
784
考えて見ましょう。
updated document
Yuki Kimoto authored on 2011-01-20
785

            
update pod
Yuki Kimoto authored on 2011-01-26
786
    my $sql = "select * from table where {> date} and {< date};";
updated document
Yuki Kimoto authored on 2011-01-20
787

            
update pod
Yuki Kimoto authored on 2011-02-07
788
このような場合はパラメータの値を配列のリファレンスで指定します。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
789

            
update pod
Yuki Kimoto authored on 2011-01-26
790
    my $dbi->execute($sql, param => {date => ['2010-10-01', '2012-02-10']});
791

            
update pod
Yuki Kimoto authored on 2011-02-07
792
=head3 タグの登録 C<register_tag()>
update pod
Yuki Kimoto authored on 2011-01-26
793

            
update pod
Yuki Kimoto authored on 2011-02-07
794
独自のタグを登録することができます。
update pod
Yuki Kimoto authored on 2011-01-26
795
タグを追加するにはC<register_tag()>を使用します。
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
796

            
797
    $dbi->register_tag(
update pod
Yuki Kimoto authored on 2011-01-26
798
        '=' => sub {
799
            my $column = shift;
800
            
801
            return ["$column = ?", [$column]];
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
802
        }
803
    );
804

            
update pod
Yuki Kimoto authored on 2011-01-26
805
ここではデフォルトのC<=>タグがどのように実装されているかを示しています。
update pod
Yuki Kimoto authored on 2011-02-11
806
タグの形式は次のようになっています。
update pod
Yuki Kimoto authored on 2011-01-26
807

            
update pod
Yuki Kimoto authored on 2011-02-11
808
    {タグ名 引数1 引数2 ...}
update pod
Yuki Kimoto authored on 2011-01-26
809

            
810
C<=>タグの場合は
811

            
812
    {= title}
813

            
814
という形式ですから、サブルーチンにはtitleというひとつの列名がわたってきます。
815

            
816
サブルーチンの戻り値には次の形式の配列のリファレンスを返す必要があります。
817

            
818
    [
819
        展開後の文字列,
820
        [プレースホルダに埋め込みに利用する列名1, 列名2, ...]
821
    ]
822

            
823
一つ目の要素は展開後の文字列です。この例では
824

            
825
    'title = ?'
826

            
827
を返す必要があります。
828

            
829
二つ目の要素はプレースホルダに埋め込みに利用する列名を含む配列の
830
リファレンスです。今回の例では
831

            
832
    ['title']
833

            
834
を返す必要があります。複数のプレースホルダを含む場合は、この部分が
update pod
Yuki Kimoto authored on 2011-02-11
835
複数になります。
update pod
Yuki Kimoto authored on 2011-01-26
836

            
837
上記を合わせると
838

            
839
    ['title = ?', ['title']]
840
    
841
を返す必要があるということです。
842

            
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
843
タグの実装の他のサンプルはL<DBIx::Custom::Tag>のソースコード
844
をご覧になってみてください。
845

            
removed experimental txn_sco...
Yuki Kimoto authored on 2011-01-24
846
=head2 6. Where句の動的な生成
847

            
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
848
=head3 Where句の動的な生成 where()
849

            
850
複数の検索条件を指定して、検索を行いたい場合があります。
851
次の3つのケースのwhere句を考えてみましょう。
852
下記のようなwhere句が必要になります。
853

            
854
titleの値だけで検索したい場合
855

            
856
    where {= title}
857

            
858
authorの値だけで検索したい場合
859

            
860
    where {= author}
861

            
862
titleとauthorの両方の値で検索したい場合
863

            
864
    where {= title} and {=author}
865

            
866
L<DBIx::Custom>では動的なWhere句の生成をサポートしています。
867
まずC<where()>でL<DBIx::Custom::Where>オブジェクトを生成します。
868

            
869
    my $where = $dbi->where;
870

            
871
次にC<clause()>を使用してwhere句を記述します。
872

            
873
    $where->clause(
874
        ['and', '{= title'}, '{= author}']
875
    );
876

            
877
clauseの指定方法は次のようになります。
878

            
879
    ['or' あるいは 'and', タグ1, タグ2, タグ3]
880

            
881
第一引数にはorあるいはandを指定します。第二引数以降には
882
検索条件をタグを使って記述します。
883

            
884
C<clause>の指定は入れ子にすることもでき、さらに複雑な条件
885
を記述することもできます。
886

            
887
    ['and', 
888
      '{= title}', 
889
      ['or', '{= author}', '{like date}']
890
    ]
891

            
892
このようにC<clause>を設定した後にC<param>にパラメータを指定します。
893
    
894
    my $param => {title => 'Perl'};
895
    $where->param($param);
896

            
897
この例ではtitleだけがパラメータに含まれています。
898

            
899
この後C<to_string()>を実行すると$paramに含まれるパラメータを満たす
900
where句を生成することができます。
901

            
902
    my $where_clause = $where->to_string;
903

            
904
パラメータはtitleだけですので、次のようなwhere句が生成されます。
905

            
906
    where {= title}
907

            
cleanup
Yuki Kimoto authored on 2011-01-26
908
またL<DBIx::Custom>は文字列の評価をオーバーロードして、C<to_string()>
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
909
を呼び出すようにしていますので、次のようにしてwhere句を生成することも
910
できます。
911

            
912
    my $where_clause = "$where";
913

            
914
これはSQLの中にwhere句を埋め込むときにとても役立つ機能です。
915

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
916
=head3 同一の列名を含む場合
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
917

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
918
タグの中に同一の名前を持つものが存在した場合でも動的に
919
where句を作成することができます。
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
920

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
921
たとえば、パラメータとして開始日付と終了日付を受け取ったことを
922
考えてみてください。
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
923

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
924
    my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
925

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
926
また開始日付と終了日付の片方だけや、どちらも受け取らない場合もあるかもしれません。
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
927

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
928
この場合は次のようなパラメータに変換することで対応することができます。
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
929

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
930
    my $p = {date => ['2010-11-15', '2011-11-21']};
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
931

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
932
値が配列のリファレンスになっていることに注目してください。このようにすれば
933
同名の列を含むタグに順番に埋め込むことができます。
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
934

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
935
    $where->clause(
936
        ['and', '{> date}', '{< date}']
937
    );
938
    $where->param($p);
939

            
940
また開始日付が存在しない場合は次のようなデータを作成します。
941

            
942
    my $p = {date => [$dbi->not_exists, '2011-11-21']};
943

            
944
L<DBIx::Custom>のC<not_exists>でDBIx::Custom::NotExistsオブジェクトを
945
取得できます。これは対応する値が存在しないことを示すためのものです。
946

            
947
また終了日付が存在しない場合は次のようなデータを作成します。
948

            
949
    my $p = {date => ['2010-11-15']};
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
950

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
951
どちらも存在しない場合は次のようなデータを作成します。
952

            
953
    my $p = {date => []};
954

            
955
少し難しいので一番簡単に作成できるロジックを示しておきます。
956

            
957
    my @date;
958
    push @date, exists $param->{start_date} ? $param->{start_date}
959
                                            : $dbi->not_exists;
960
    push @date, $param->{end_date} if exists $param->{end_date};
961
    my $p = {date => \@date};
962

            
963
=head3 C<select()>との連携
964

            
update pod
Yuki Kimoto authored on 2011-01-26
965
L<DBIx::Custom::Where>オブジェクトは
966
C<select()>のC<where>に直接渡すことが
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
967
できます。
968
    
969
    my $where = $dbi->where;
970
    $where->clause(...);
971
    $where->param($param);
972
    my $result = $dbi->select(table => 'book', where => $where);
973

            
update pod
Yuki Kimoto authored on 2011-01-26
974
あるいはC<update()>、C<delete()>のwhereに指定することも可能です。
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
975

            
976
=head3 C<execute()>との連携
977

            
978
C<execute()>との連携です。SQLを作成するときに埋め込むことができます。
979

            
980

            
981
    my $where = $dbi->where;
982
    $where->clause(...);
983
    $where->param($param);
984

            
985
    my $sql = <<"EOS"
986
    select * from book;
987
    $where
988
    EOS
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
989

            
make delete() using where ob...
Yuki Kimoto authored on 2011-01-26
990
    $dbi->execute($sql, param => $param);
added experimental not_exist...
Yuki Kimoto authored on 2011-01-26
991

            
update pod
Yuki Kimoto authored on 2011-02-11
992
=head2 7. テーブルオブジェクト
update pod
Yuki Kimoto authored on 2011-01-28
993

            
994
=head3 テーブルオブジェクトの作成 C<table()>
995

            
update pod
Yuki Kimoto authored on 2011-02-11
996
データベースのテーブルにアクセスするための
997
テーブルオブジェクトを作成することができます。
update pod
Yuki Kimoto authored on 2011-01-28
998

            
999
テーブルオブジェクトを生成するにはC<table()>を使用します。
1000

            
1001
    my $table = $dbi->table('book');
1002

            
update pod
Yuki Kimoto authored on 2011-02-11
1003
戻り値はL<DBIx::Custom::Table>オブジェクトです。
update pod
Yuki Kimoto authored on 2011-01-28
1004
テーブルオブジェクトからはC<insert()>、C<update()>、C<update_all()>、
1005
C<delete()>、C<delete_all()>、C<select()>などのメソッド呼び出すことができます。
update pod
Yuki Kimoto authored on 2011-02-11
1006
C<table>を指定する必要はありません。
update pod
Yuki Kimoto authored on 2011-01-28
1007

            
1008
    $table->insert(param => $param);
1009

            
update pod
Yuki Kimoto authored on 2011-02-11
1010
テーブルオブジェクトには任意のメソッドを追加することができます。
update pod
Yuki Kimoto authored on 2011-01-28
1011

            
1012
    $table->method(
1013
        register => sub {
1014
            my $self = shift;
1015
            my $table_name = $self->name;
1016
            # something
1017
        },
update pod
Yuki Kimoto authored on 2011-02-11
1018
        list => sub { ... },
update pod
Yuki Kimoto authored on 2011-01-28
1019
    );
1020

            
1021
C<name()>を使用して、テーブル名を取得することができます。
1022

            
update pod
Yuki Kimoto authored on 2011-02-11
1023
このようにして登録したメソッドはテーブルオブジェクトから呼び出すことができます。
update pod
Yuki Kimoto authored on 2011-01-28
1024

            
1025
    $table->register(...);
1026
    $table->list(...);
1027

            
update pod
Yuki Kimoto authored on 2011-02-11
1028
=head2 L<DBIx::Custom>と<DBI>のメソッドの利用
update pod
Yuki Kimoto authored on 2011-01-28
1029

            
update pod
Yuki Kimoto authored on 2011-02-11
1030
テーブルからはL<DBIx::Custom>とL<DBI>のすべてのメソッドを呼び出すことができます。
update pod
Yuki Kimoto authored on 2011-01-28
1031

            
update pod
Yuki Kimoto authored on 2011-02-11
1032
    # DBIx::Custom method
1033
    $table->execute($sql);
1034
    
1035
    # DBI method
1036
    $table->begin_work;
1037
    $table->commit;
update pod
Yuki Kimoto authored on 2011-01-28
1038

            
update pod
Yuki Kimoto authored on 2011-02-11
1039
=head2 テーブルで共有のメソッドの追加
update pod
Yuki Kimoto authored on 2011-01-28
1040

            
update pod
Yuki Kimoto authored on 2011-02-11
1041
すべてのテーブルでメソッドを共有するには
1042
ベーステーブルにメソッドを登録します。
1043
ベーステーブルを取得するにはC<base_table>を使用します。
update pod
Yuki Kimoto authored on 2011-01-28
1044

            
1045
    $dbi->base_table->method(
1046
        count => sub {
1047
            my $self = shift;
1048
            return $self->select(column => ['count(*)']);
1049
        }
1050
    );
1051

            
update pod
Yuki Kimoto authored on 2011-02-11
1052
このメソッドはすべてのテーブルから利用することができます。
update pod
Yuki Kimoto authored on 2011-01-28
1053

            
update pod
Yuki Kimoto authored on 2011-02-11
1054
    $dbi->table('book')->count(...);
update pod
Yuki Kimoto authored on 2011-01-28
1055

            
update pod
Yuki Kimoto authored on 2011-02-11
1056
また同名のメソッドをテーブルに追加して、ベーステーブルの
1057
メソッドを利用したい場合はC<base_METHOD()>と記述します。
1058

            
1059
    $table->method(
1060
        count => sub {
1061
            my $self = shift;
1062
            
1063
            $self->base_count(...);
1064
            
1065
            # ...
1066
        }
1067
    );
1068

            
1069
=head2 モデルのサンプル
update pod
Yuki Kimoto authored on 2011-01-28
1070

            
1071
一般的には、L<DBIx::Custom>を継承してコンストラクタの中に、モデルを作成
1072
するのがよいでしょう。
1073

            
1074
    package MyDBI;
1075
    
1076
    use base 'DBIx::Custom';
1077
    
1078
    sub connect {
1079
        my $self = shift->SUPER::connect(@_);
1080
        
1081
        $self->base_table->method(
update pod
Yuki Kimoto authored on 2011-02-11
1082
            delete_multi => sub { ... }
update pod
Yuki Kimoto authored on 2011-01-28
1083
        );
1084
        
1085
        $self->table('book')->method(
update pod
Yuki Kimoto authored on 2011-02-11
1086
            register => sub { ... },
1087
            remove   => sub { ... },
update pod
Yuki Kimoto authored on 2011-01-28
1088
        );
1089
        
1090
        $self->table('company')->method(
update pod
Yuki Kimoto authored on 2011-02-11
1091
            register => sub { ... },
1092
            remove   => sub { ... },
update pod
Yuki Kimoto authored on 2011-01-28
1093
        );
1094
    }
1095

            
update pod
Yuki Kimoto authored on 2011-02-11
1096
次のようにこのクラスを利用することができます。
update pod
Yuki Kimoto authored on 2011-01-28
1097

            
1098
    my $dbi = MyDBI->connect(...);
update pod
Yuki Kimoto authored on 2011-02-11
1099
    $dbi->table('book')->delete_multi(...);
1100
    $dbi->table('book')->register(...);
update pod
Yuki Kimoto authored on 2011-01-28
1101

            
1102
=head2 8. パフォーマンスの改善
updated document
Yuki Kimoto authored on 2011-01-20
1103

            
update pod
Yuki Kimoto authored on 2011-01-26
1104
=head3 クエリの作成
updated document
Yuki Kimoto authored on 2011-01-20
1105

            
update pod
Yuki Kimoto authored on 2011-02-11
1106
パフォーマンスが得られない場合はC<query>オプションを使って
1107
クエリを作成してみてください。
update pod
Yuki Kimoto authored on 2011-01-26
1108

            
update pod
Yuki Kimoto authored on 2011-02-11
1109
    my $params = [
1110
        {title => 'Perl', author => 'Ken'},
1111
        {title => 'Good day', author => 'Tom'}
1112
    ]
1113
    my $query = $dbi->insert(table => 'book', param => $params->[0], query => 1);
update pod
Yuki Kimoto authored on 2011-01-26
1114

            
update pod
Yuki Kimoto authored on 2011-02-11
1115
戻り値はL<DBIx::Custom::Query>オブジェクトです。
1116
作成したクエリはC<execute()>で実行することができます。
update pod
Yuki Kimoto authored on 2011-01-26
1117

            
update pod
Yuki Kimoto authored on 2011-02-11
1118
    foreach my $param (@$params) {
1119
        $dbi->execute($query, $param);
1120
    }
1121

            
1122
ステートメントハンドルが再利用されるので、パフォーマンスが
1123
改善されます。
1124
C<query>オプションはC<insert()>, C<update()>, C<update_all()>,
1125
C<delete()>, C<delete_all()>で利用することができます.
1126

            
1127
クエリを作成するメソッドに渡すパラメータと
1128
C<execute()>に渡すパラメータの個数は同じでなければならない
1129
ことに注意してください。
1130

            
1131
C<create_query()>を使って任意のSQLのクエリを作成
update pod
Yuki Kimoto authored on 2011-01-26
1132
することもできます。
updated document
Yuki Kimoto authored on 2011-01-20
1133

            
1134
    my $query = $dbi->create_query(
update pod
Yuki Kimoto authored on 2011-01-26
1135
        "insert into book {insert_param title author};";
updated document
Yuki Kimoto authored on 2011-01-20
1136
    );
1137

            
1138

            
update pod
Yuki Kimoto authored on 2011-01-28
1139
=head2 9. その他の機能
updated document
Yuki Kimoto authored on 2011-01-20
1140

            
update pod
Yuki Kimoto authored on 2011-01-26
1141
=head3 メソッドの登録
updated document
Yuki Kimoto authored on 2011-01-20
1142

            
update pod
Yuki Kimoto authored on 2011-02-11
1143
D<DBIx::Custom>オブジェクトにメソッドを追加することができます。
1144
C<method()>を使用します。
updated document
Yuki Kimoto authored on 2011-01-20
1145

            
update pod
Yuki Kimoto authored on 2011-01-26
1146
    $dbi->method(
updated document
Yuki Kimoto authored on 2011-01-20
1147
        update_or_insert => sub {
1148
            my $self = shift;
update pod
Yuki Kimoto authored on 2011-01-26
1149
            # something
updated document
Yuki Kimoto authored on 2011-01-20
1150
        },
1151
        find_or_create   => sub {
1152
            my $self = shift;
update pod
Yuki Kimoto authored on 2011-01-26
1153
            # something
updated document
Yuki Kimoto authored on 2011-01-20
1154
        }
1155
    );
1156

            
update pod
Yuki Kimoto authored on 2011-02-11
1157
これらのメソッドは
1158
L<DBIx::Custom>オブジェクトから呼び出すことができます。
updated document
Yuki Kimoto authored on 2011-01-20
1159

            
1160
    $dbi->update_or_insert;
1161
    $dbi->find_or_create;
1162

            
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1163
=head3 結果クラスの変更
1164

            
update pod
Yuki Kimoto authored on 2011-02-11
1165
結果クラスを変更することができます。
1166
デフォルトはL<DBIx::Custom::Result>です。
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1167

            
1168
    package MyResult;
1169
    use base 'DBIx::Custom::Result';
1170
    
1171
    sub some_method { ... }
updated document
Yuki Kimoto authored on 2011-01-20
1172

            
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1173
    1;
1174
    
1175
    package main;
1176
    
1177
    use MyResult;
1178
    
1179
    my $dbi = DBIx::Custom->connect(...);
1180
    $dbi->result_class('MyResult');
updated document
Yuki Kimoto authored on 2011-01-20
1181

            
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1182
=head3 キャッシング
updated document
Yuki Kimoto authored on 2011-01-20
1183

            
update pod
Yuki Kimoto authored on 2011-02-11
1184
タグの解析後のSQLはパフォーマンスの理由のためにキャッシュされます。
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1185
これはC<chace>で設定でき、デフォルトではキャッシュを行う設定です。
updated document
Yuki Kimoto authored on 2011-01-20
1186

            
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1187
    $dbi->cache(1);
updated document
Yuki Kimoto authored on 2011-01-20
1188

            
update pod
Yuki Kimoto authored on 2011-02-11
1189
キャッシュ方法はC<cache_method>で変更することができます。
1190
デフォルトのメソッドは以下のようになっていて、
1191
メモリ上にキャッシュが保存されます。
updated document
Yuki Kimoto authored on 2011-01-20
1192

            
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1193
    $dbi->cache_method(sub {
1194
        sub {
1195
            my $self = shift;
1196
            
1197
            $self->{_cached} ||= {};
1198
            
1199
            if (@_ > 1) {
update pod
Yuki Kimoto authored on 2011-02-11
1200
                # キャッシュの保存
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1201
                $self->{_cached}{$_[0]} = $_[1] 
1202
            }
1203
            else {
update pod
Yuki Kimoto authored on 2011-02-11
1204
                # キャッシュの取得
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1205
                return $self->{_cached}{$_[0]}
1206
            }
1207
        }
1208
    });
1209
    
1210
第一はL<DBIx::Custom>オブジェクトです。
update pod
Yuki Kimoto authored on 2011-02-11
1211
第二引数はタグが解析される前のSQLです。
1212
第三引数はタグの解析後のSQLの情報です。これはハッシュのリファレンスです。
updated document
Yuki Kimoto authored on 2011-01-20
1213

            
update pod
Yuki Kimoto authored on 2011-02-11
1214
第三引数が存在した場合はキャッシュを設定し、
removed experimental expand
Yuki Kimoto authored on 2011-01-26
1215
存在しなかった場合はキャッシュを取得する実装に
1216
してください。
updated document
Yuki Kimoto authored on 2011-01-20
1217

            
update pod
Yuki Kimoto authored on 2011-02-11
1218
=head1 サンプル
1219

            
1220
以下のWikiでサンプルを見ることができます。
1221

            
1222
L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki>
1223

            
updated document
Yuki Kimoto authored on 2011-01-20
1224
=cut