@@ -221,91 +221,82 @@ By default, the following ones is set to database handle attributes.

 If fatal error occuer, program terminate.

 If SQL is executed, commit is executed automatically.

-=head2 2. �}��A�X�V�A�폜�A�I��̂��߂̃��\�b�h

+=head2 2. Methods for insert, update, delete, or insert

-L<DBIx::Custom>�́A

-C<insert()>�AC<update()>�AC<delete()>�AC<select()>

-�̂悤�ȑ}��A�X�V�A�폜�A�I���s�����߂̃��\�b�h���Ă��܂��B

-�ȒP�Ȃ��Ƃ��s���̂ł���΁ASQL����ŋL�q����K�v������܂���B

+There are following methods.

-=head3 �f�[�^�̑}�� C<insert()>

+=head3 C<insert()>

-�f�[�^�x�[�X�Ƀf�[�^��}���ɂ�C<insert()>��g�p���܂��B

+use C<insert()> to insert row into database

     $dbi->insert(table  => 'book',

                  param  => {title => 'Perl', author => 'Ken'});

-C<table>�ɂ̓e�[�u�����AC<param>�ɂ͑}����f�[�^��w�肵�܂��B

+C<table> is table name, C<param> is insert data.

-����SQL�����s����܂��B

+Following SQL is executed.

     insert into (title, author) values (?, ?);

-=head3 �f�[�^�̍X�V C<update()>

+=head3 C<update()>

-�f�[�^�x�[�X�̃f�[�^��X�V����ɂ́AC<update()>��g�p���܂��B

+use C<update()> to update row in database.

     $dbi->update(table  => 'book', 

                  param  => {title => 'Perl', author => 'Ken'}, 

                  where  => {id => 5});

-C<table>�ɂ̓e�[�u�����AC<param>�ɂ͑}����f�[�^�AC<where>�ɂ�

-���w�肵�܂��B

+C<table> is table name, C<param> is update data, C<where> is condition.

-����SQL�����s����܂��B

+Following SQL is executed.

     update book set title = ?, author = ?;

-C<update>���\�b�h�͈�S�̂���

-where��̂Ȃ�SQL�𔭍s���邱�Ƃ�‚��Ă��܂���B

-�����ׂĂ̍s��X�V�������ꍇ��

-C<update_all()>��g�p�����������B

+You can't execute C<update()> without C<where> for safety.

+use C<update_all()> if you want to update all rows.

     $dbi->update_all(table  => 'book', 

                      param  => {title => 'Perl', author => 'Ken'});

-=head3 �f�[�^�̍폜 C<delete()>

+=head3 C<delete()>

-�f�[�^�x�[�X�̃f�[�^��1���폜����ɂ́AC<delete()>��g�p���܂��B

+use C<delete()> to delete rows from database.

     $dbi->delete(table  => 'book',

                  where  => {author => 'Ken'});

-C<table>�ɂ̓e�[�u�����AC<where>�ɂ͏��w�肵�܂��B

+C<table> is table name, C<where> is condition.

-����SQL�����s����܂��B

+Following SQL is executed.

     delete from book where id = ?;

-C<delete>���\�b�h�͈�S�̂���

-where��̂Ȃ�SQL�𔭍s���邱�Ƃ�‚��Ă��܂���B

-�����ׂĂ̍s��폜�������ꍇ��

-C<delete_all()>��g�p�����������B

+You can't execute C<delete()> without C<where> for safety.

+use C<delete_all()> if you want to delete all rows.

     $dbi->delete_all(table  => 'book');

-=head3 �f�[�^�̑I�� C<select()>

+=head3 C<select()>

-�s��I���ɂ�C<select()>��g�p���܂��B

+use C<select()> to select rows from database

     my $result = $dbi->select(table => 'book');

-C<table>������w�肵�āA���̏��w�肵�Ȃ��ꍇ�͎���SQL�����s����܂��B

+Following SQL is executed.

     select * from book;

-C<select()>���\�b�h�̖߂�l��L<DBIx::Custom::Result>

-�I�u�W�F�N�g�ł��B�s��t�F�b�`����ɂ�C<fetch()>��g�p���܂��B

+Return value is L<DBIx::Custom::Result> object.

+use C<fetch()> to fetch row.

     while (my $row = $result->fetch) {

         my $title  = $row->[0];

         my $author = $row->[1];

     }

-L<DBIx::Custom::Result>�ɂ‚��Ă͂��̌�L<3. �s�̃t�F�b�`/"3. �s�̃t�F�b�`">�ŏڂ��������܂��B

+See L<3. Fetch row/"3. Fetch row"> about L<DBIx::Custom::Result>.

-���܂��܂�C<select()>�̎g�����Ă����܂��傤�B

-����C<select>�͍s�̖��O��where���w�肵����̂ł��B

+Continue more examples.

     my $result = $dbi->select(

         table  => 'book',

@@ -313,26 +304,27 @@ L<DBIx::Custom::Result>

         where  => {author => 'Ken'}

     );

-C<column>�ɂ͗񖼂�AC<where>�ɂ͏��w�肷�邱�Ƃ��ł��܂��B

-����SQL�����s����܂��B

+C<column> is column names, C<where> is condition.

+

+Following SQL is executed.

     select author, title from book where author = ?;

-�e�[�u������������ꍇ�͂�C<relation>�Ƀe�[�u����

-�֌W��L�q���܂��B

+Next example.

     my $result = $dbi->select(

         table    => ['book', 'rental'],

-        where    => {book.name => 'Perl'},

+        where    => {'book.name' => 'Perl'},

         relation => {'book.id' => 'rental.book_id'}

     );

-book�e�[�u����id���rental�e�[�u����book_id���֘A�t�����܂��B

-����SQL�����s����܂��B

+C<relation> is relation of tables. This is inner join.

+

+Following SQL is executed.

     select * from book, rental where book.name = ? and book.id = rental.book_id;

-SQL���̖���ɕ������lj�������ꍇ��<append>��g�p���܂��B

+Next example.

     my $result = $dbi->select(

         table  => 'book',

@@ -340,44 +332,37 @@ SQL

         append => 'for update',

     );

-����SQL�����s����܂��B

+C<append> is string appending to end of SQL.

+

+Following SQL is executed.

     select * book where author = ? for update;

-�܂�C<append>�́AC<select>�����łȂ�C<insert()>�AC<update()>�AC<update_all()>

-C<delete()>�AC<delete_all()>�AC<select()>�Ŏg�p���邱�Ƃ�ł��܂��B

+C<appned> is also used at C<insert()>, C<update()>, C<update_all()>

+C<delete()>, C<delete_all()>, and C<select()>.

-=head3 SQL�̎�s C<execute()>

+=head3 C<execute()> SQL

-�C�ӂ�SQL���s����ɂ�execute���\�b�h��g�p���܂��B

+use C<execute()> to execute SQL

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

-C<execute()>��L<DBIx::Custom>�̍����̃��\�b�h�ł���^�O��W�J���܂��B

+Process tag and execute SQL.

     $dbi->execute(

         "select * from book {= title} and {= author};"

         param => {title => 'Perl', author => 'Ken'}

     );

-��L�̃^�O��܂�SQL�͎��̂悤�ɓW�J����܂��B

+Following SQL is executed.

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

-SQL����s�����Ƃ��Ƀv���[�X�z���_(?)�ɑΉ�����ʒu��title��author

-�̒l���������I�ɖ��ߍ��܂�܂��B

-

-�^�O�ɂ‚��Ă�L<5. �^�O/"5. �^�O">�ŏڂ�������܂����A

-�ЂƂ‚̒��ӓ_������܂��B

-�^�O��W�J���邽�߂�C<{>��C<}>�͗\���ɂȂ�Ă��܂��B

-�����p�������ꍇ�͒��O��\����ăG�X�P�[�v��s���K�v������܂��B

-

-    $dbi->execute("... \\{ ... \\} ...");

+Values of title and author is embbdeded into placeholder.

-\���̂�Perl�̃G�X�P�[�v�����ł��̂ŁA��•K�v�ɂȂ�Ƃ����_�ɒ��ӂ��Ă��������B

+See L<5. Tag/"5. Tag"> about tag.

-�܂�execute�̃L���[�g�ȋ@�\�Ƃ��āASQL�̍Ō�ɃZ�~�R��������Ȃ��Ă�

-���܂��܂���B

+You don't have to wirte last semicolon in C<execute()>. 

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

@@ -746,81 +731,81 @@ C<table>

     $dbi->execute($sql, param => {title => 'Perl', author => '%Ken%'}

                   table => ['book']);

-=head2 �^�O�ꗗ

+=head3 �^�O�ꗗ

 L<DBIx::Custom>�ł͎��̃^�O���g�p�”\�ł��B

 ���̂悤�Ƀ^�O��g���SQL����\������̂�L<DBIx::Custom>��

 ����ł��B�ȉ��̃^�O�����p�”\�ł��B

-=head3 C<?>

+=head4 C<?>

 C<?>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {? NAME}    ->   ?

-=head3 C<=>

+=head4 C<=>

 C<=>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {= NAME}    ->   NAME = ?

-=head3 C<E<lt>E<gt>>

+=head4 C<E<lt>E<gt>>

 C<E<lt>E<gt>>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {<> NAME}   ->   NAME <> ?

-=head3 C<E<lt>>

+=head4 C<E<lt>>

 C<E<lt>>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {< NAME}    ->   NAME < ?

-=head3 C<E<gt>>

+=head4 C<E<gt>>

 C<E<gt>>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {> NAME}    ->   NAME > ?

-=head3 C<E<gt>=>

+=head4 C<E<gt>=>

 C<E<gt>=>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {>= NAME}   ->   NAME >= ?

-=head3 C<E<lt>=>

+=head4 C<E<lt>=>

 C<E<lt>=>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {<= NAME}   ->   NAME <= ?

-=head3 C<like>

+=head4 C<like>

 C<like>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {like NAME}   ->   NAME like ?

-=head3 C<in>

+=head4 C<in>

 C<in>�^�O�͈ȉ��̂悤�ɓW�J����܂��B�v���[�X�z���_��

 �����Ŏw�肷��K�v�����邱�Ƃɒ��ӂ��Ă��������B

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

-=head3 C<insert_param>

+=head4 C<insert_param>

 C<insert_param>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {insert_param NAME1 NAME2}   ->   (NAME1, NAME2) values (?, ?)

-=head3 C<update_param>

+=head4 C<update_param>

 C<update_param>�^�O�͈ȉ��̂悤�ɓW�J����܂��B

     {update_param NAME1 NAME2}   ->   set NAME1 = ?, NAME2 = ?

-=head2 �����̗�̈���

+=head3 �����̗�̈���

 �����̗��܂ރ^�O������ꍇ�ɂ�ASQL���s���邱�Ƃ��ł��܂��B

 ���Ƃ��΁A��‚̓�t�Ŕ�r���Ȃ���΂Ȃ�Ȃ��ꍇ��

@@ -832,7 +817,7 @@ C<update_param>

     my $dbi->execute($sql, param => {date => ['2010-10-01', '2012-02-10']});

-=head2 �^�O�̒lj� C<register_tag()>

+=head3 �^�O�̒lj� C<register_tag()>

 L<DBIx::Custom>�ł̓^�O��Ǝ��ɒlj���邱�Ƃ��ł��܂��B

 �^�O��lj����ɂ�C<register_tag()>��g�p���܂��B

@@ -15,7 +15,7 @@ L<DBIx::Custom>はO/Rマッパーではありません。O/Rマッパーは

 便利ですが、O/Rマッパのたくさんの文法を覚える必要があります。

 また、O/Rマッパによって生成されたSQLは非効率なことがありますし、

 複雑なSQLを生成することができないので、

-生のSQLを発行しなければならない場合がたくさんあります。

+生のSQLを実行しなければならない場合がたくさんあります。

 L<DBIx::Custom>はO/Rマッパとは対照的な設計が行われています。

 L<DBIx::Custom>の主な目的は、SQLを尊重しつつ、L<DBI>だけでは

@@ -99,7 +99,7 @@ titleだけの場合は次のSQLを

     select * from book where title = ?;

-authorだけの場合は次のSQLを発行した場合を考えましょう。

+authorだけの場合は次のSQLを実行した場合を考えましょう。

     select * from book where author = ?;

@@ -224,41 +224,37 @@ SQLが実行されると自動的にコミットされます。

 =head2 2. 挿入、更新、削除、選択のためのメソッド

-L<DBIx::Custom>は、

-C<insert()>、C<update()>、C<delete()>、C<select()>

-のような挿入、更新、削除、選択を行うためのメソッドを持っています。

-簡単なことをを行うのであれば、SQLを自分で記述する必要がありません。

+下記のメソッドがあります。

-=head3 データの挿入 C<insert()>

+=head3 行の挿入 C<insert()>

-データベースにデータを挿入するにはC<insert()>を使用します。

+データベースに行を挿入するにはC<insert()>を使用します。

     $dbi->insert(table  => 'book',

                  param  => {title => 'Perl', author => 'Ken'});

-C<table>にはテーブル名、C<param>には挿入したいデータを指定します。

+C<table>はテーブル名、C<param>は挿入する行のデータです。

-次のSQLが発行されます。

+次のSQLが実行されます。

     insert into (title, author) values (?, ?);

 =head3 データの更新 C<update()>

-データベースのデータを更新するには、C<update()>を使用します。

+データベースの行を更新するには、C<update()>を使用します。

     $dbi->update(table  => 'book', 

                  param  => {title => 'Perl', author => 'Ken'}, 

                  where  => {id => 5});

-C<table>にはテーブル名、C<param>には挿入したいデータ、C<where>には

-条件を指定します。

+C<table>はテーブル名、C<param>は更新データ、C<where>は

+条件です。

-次のSQLが発行されます。

+次のSQLが実行されます。

     update book set title = ?, author = ?;

-C<update>メソッドは安全のため

-where句のないSQLを発行することを許可していません。

+安全のためC<where>のないupdate()を実効することはできません。

 もしすべての行を更新したい場合は

 C<update_all()>を使用してください。

@@ -267,19 +263,18 @@ C<update_all()>を使用してください。

 =head3 データの削除 C<delete()>

-データベースのデータを1件削除するには、C<delete()>を使用します。

+データベースの行を1件削除するには、C<delete()>を使用します。

     $dbi->delete(table  => 'book',

                  where  => {author => 'Ken'});

-C<table>にはテーブル名、C<where>には条件を指定します。

+C<table>はテーブル名、C<where>は条件です。

-次のSQLが発行されます。

+次のSQLが実行されます。

     delete from book where id = ?;

-C<delete>メソッドは安全のため

-where句のないSQLを発行することを許可していません。

+安全のためC<where>のないC<delete()>を実効することはできません。

 もしすべての行を削除したい場合は

 C<delete_all()>を使用してください。

@@ -291,11 +286,11 @@ C<delete_all()>を使用してください。

     my $result = $dbi->select(table => 'book');

-C<table>だけを指定して、他の条件を指定しない場合は次のSQLが発行されます。

+次のSQLが実行されます。

     select * from book;

-C<select()>メソッドの戻り値はL<DBIx::Custom::Result>

+戻り値はL<DBIx::Custom::Result>

 オブジェクトです。行をフェッチするにはC<fetch()>を使用します。

     while (my $row = $result->fetch) {

@@ -303,10 +298,9 @@ C<select()>メソッドの戻り値はL<DBIx::Custom::Result>

         my $author = $row->[1];

     }

-L<DBIx::Custom::Result>についてはこの後L<3. 行のフェッチ/"3. 行のフェッチ">で詳しく扱います。

+L<DBIx::Custom::Result>についてはL<3. 行のフェッチ/"3. 行のフェッチ">を見てください。

-さまざまなC<select()>の使い方を見ていきましょう。

-次のC<select>は行の名前とwhere句を指定したものです。

+サンプルを続けます。

     my $result = $dbi->select(

         table  => 'book',

@@ -314,13 +308,13 @@ L<DBIx::Custom::Result>についてはこの後L<3. 行のフェッチ/"3. 行

         where  => {author => 'Ken'}

     );

-C<column>には列名を、C<where>には条件を指定することができます。

-次のSQLが発行されます。

+C<column>は列名、C<where>は条件です。

+

+次のSQLが実行されます。

     select author, title from book where author = ?;

-テーブルを結合したい場合ははC<relation>にテーブルの

-関係を記述します。

+次のサンプルです。

     my $result = $dbi->select(

         table    => ['book', 'rental'],

@@ -328,12 +322,16 @@ C<column>には列名を、C<where>には条件を指定することができま

         relation => {'book.id' => 'rental.book_id'}

     );

+C<relation>テーブル間の関係です。これは内部結合です。

+

+次のSQLが実行されます。

+

 bookテーブルのid列とrentalテーブルのbook_idが関連付けられます。

-次のSQLが発行されます。

+次のSQLが実行されます。

     select * from book, rental where book.name = ? and book.id = rental.book_id;

-SQL文の末尾に文字列を追加したい場合は<append>を使用します。

+次のサンプルです。

     my $result = $dbi->select(

         table  => 'book',

@@ -341,7 +339,9 @@ SQL文の末尾に文字列を追加したい場合は<append>を使用します

         append => 'for update',

     );

-次のSQLが発行されます。

+C<append>はSQLの末尾に追加される文字列です。

+

+次のSQLが実行されます。

     select * book where author = ? for update;

@@ -350,35 +350,26 @@ C<delete()>、C<delete_all()>、C<select()>で使用することもできます

 =head3 SQLの実行 C<execute()>

-任意のSQLを実行するにはexecuteメソッドを使用します。

+SQLを実行するにはC<execute()>を使用します。

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

-C<execute()>はL<DBIx::Custom>の根幹のメソッドでありタグを展開します。

+タグを処理してSQLを実行します。

     $dbi->execute(

         "select * from book {= title} and {= author};"

         param => {title => 'Perl', author => 'Ken'}

     );

-上記のタグを含んだSQLは次のように展開されます。

+次のSQLが実行されます。

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

-SQLが実行されるときにプレースホルダ(?)に対応する位置にtitleとauthor

-の値がが自動的に埋め込まれます。

-

-タグについてはL<5. タグ/"5. タグ">で詳しく解説しますが、

-ひとつの注意点があります。

-タグを展開するためにC<{>とC<}>は予約語になっています。

-もし利用したい場合は直前に\をおいてエスケープを行う必要があります。

-

-    $dbi->execute("... \\{ ... \\} ...");

+プレースホルダにtitleとauthorの値が埋め込まれます。

-\自体がPerlのエスケープ文字ですので、二つ必要になるという点に注意してください。

+タグについてはL<5. タグ/"5. タグ">を見てください。

-またexecuteのキュートな機能として、SQLの最後にセミコロンをおかなくても

-かまいません。

+またC<execute()>のSQLの末尾にはセミコロンを置く必要はありません。

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

@@ -747,81 +738,81 @@ C<table>を指定する必要があります。

     $dbi->execute($sql, param => {title => 'Perl', author => '%Ken%'}

                   table => ['book']);

-=head2 タグ一覧

+=head3 タグ一覧

 L<DBIx::Custom>では次のタグが使用可能です。

 このようにタグを使ってSQL文を表現するのがL<DBIx::Custom>の

 特徴です。以下のタグが利用可能です。

-=head3 C<?>

+=head4 C<?>

 C<?>タグは以下のように展開されます。

     {? NAME}    ->   ?

-=head3 C<=>

+=head4 C<=>

 C<=>タグは以下のように展開されます。

     {= NAME}    ->   NAME = ?

-=head3 C<E<lt>E<gt>>

+=head4 C<E<lt>E<gt>>

 C<E<lt>E<gt>>タグは以下のように展開されます。

     {<> NAME}   ->   NAME <> ?

-=head3 C<E<lt>>

+=head4 C<E<lt>>

 C<E<lt>>タグは以下のように展開されます。

     {< NAME}    ->   NAME < ?

-=head3 C<E<gt>>

+=head4 C<E<gt>>

 C<E<gt>>タグは以下のように展開されます。

     {> NAME}    ->   NAME > ?

-=head3 C<E<gt>=>

+=head4 C<E<gt>=>

 C<E<gt>=>タグは以下のように展開されます。

     {>= NAME}   ->   NAME >= ?

-=head3 C<E<lt>=>

+=head4 C<E<lt>=>

 C<E<lt>=>タグは以下のように展開されます。

     {<= NAME}   ->   NAME <= ?

-=head3 C<like>

+=head4 C<like>

 C<like>タグは以下のように展開されます。

     {like NAME}   ->   NAME like ?

-=head3 C<in>

+=head4 C<in>

 C<in>タグは以下のように展開されます。プレースホルダの

 数を引数で指定する必要があることに注意してください。

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

-=head3 C<insert_param>

+=head4 C<insert_param>

 C<insert_param>タグは以下のように展開されます。

     {insert_param NAME1 NAME2}   ->   (NAME1, NAME2) values (?, ?)

-=head3 C<update_param>

+=head4 C<update_param>

 C<update_param>タグは以下のように展開されます。

     {update_param NAME1 NAME2}   ->   set NAME1 = ?, NAME2 = ?

-=head2 同名の列の扱い

+=head3 同名の列の扱い

 同名の列を含むタグがある場合にも、SQLを実行することができます。

 たとえば、二つの日付で比較しなければならない場合を

@@ -833,7 +824,7 @@ C<update_param>タグは以下のように展開されます。

     my $dbi->execute($sql, param => {date => ['2010-10-01', '2012-02-10']});

-=head2 タグの追加 C<register_tag()>

+=head3 タグの追加 C<register_tag()>

 L<DBIx::Custom>ではタグを独自に追加することができます。

 タグを追加するにはC<register_tag()>を使用します。