@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1643';

+our $VERSION = '0.1644';

 use 5.008001;

 use strict;

@@ -355,7 +355,7 @@ This is used to specify column names and table names at once

 Note that you can't use where clause in C<selection>.

 use clause like "inner join".

-=head3 C<execute()> SQL

+=head3 C<execute()>

 use C<execute()> to execute SQL

@@ -385,7 +385,7 @@ You don't have to wirte last semicolon in C<execute()>.

 Return value of C<select()> is L<DBIx::Custom::Result> object.

 There are many methods to fetch row.

-=head3 Fetch a row (array) C<fetch()>

+=head3 Fetch a row (array) : C<fetch()>

 use C<fetch()> to fetch a row and assign it into array reference.

@@ -398,7 +398,7 @@ You can get all rows.

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

     }

-=head3 Fetch only first row (array) C<fetch_first()>

+=head3 Fetch only first row (array) : C<fetch_first()>

 use C<fetch_first()> to fetch only first row.

@@ -407,7 +407,7 @@ use C<fetch_first()> to fetch only first row.

 You can't fetch rest rows

 because statement handle C<finish()> is executed.

-=head3 Fetch rows (array) C<fetch_multi()>

+=head3 Fetch rows (array) : C<fetch_multi()>

 use C<fetch_multi()> to fetch rows and assign it into

 array reference which has array references as element.

@@ -429,7 +429,7 @@ You can get the following data.

         ['Ruby', 'Mark']

     ]

-=head3 Fetch all rows (array) C<fetch_all>

+=head3 Fetch all rows (array) : C<fetch_all>

 use C<fetch_all()> to fetch all rows and assign it into

 array reference which has array reference as element.

@@ -443,7 +443,7 @@ You can get the following data.

         ['Ruby', 'Mark']

     ]

-=head3 Fetch a row (hash) C<fetch_hash()>

+=head3 Fetch a row (hash) : C<fetch_hash()>

 use C<fetch_hash()> to fetch a row and assign it into hash reference.

@@ -452,7 +452,7 @@ use C<fetch_hash()> to fetch a row and assign it into hash reference.

         my $author = $row->{author};

     }

-=head3 Fetch only first row (hash) C<fetch_hash_first()>

+=head3 Fetch only first row (hash) : C<fetch_hash_first()>

 use C<fetch_hash_first()> to fetch only first row

 and assign it into hash reference.

@@ -462,7 +462,7 @@ and assign it into hash reference.

 You can't fetch rest rows

 because statement handle C<finish()> is executed.

-=head3 Fetch rows (hash) C<fetch_hash_multi()>

+=head3 Fetch rows (hash) : C<fetch_hash_multi()>

 use C<fetch_hash_multi()> to fetch rows and

 assign it into array reference which has hash references as element.

@@ -483,7 +483,7 @@ You can get the following data.

         {title => 'Ruby', author => 'Mark'}

     ]

-=head3 Fetch all rows (hash) C<fetch_hash_all()>

+=head3 Fetch all rows (hash) : C<fetch_hash_all()>

 use C<fetch_hash_all()> to fetch all rows and

 assign it into array reference which has hash 

@@ -498,7 +498,7 @@ You can get the following data.

         {title => 'Ruby', author => 'Mark'}

     ]

-=head3 Statement handle C<sth()>

+=head3 Statement handle : C<sth()>

 use <sth()> to get statement handle.

@@ -512,7 +512,7 @@ database date format when register data into database.

 and convert database date fromat to L<Time::Piece> object

 when get data from database.

-=head3 Register filter C<register_filter()>

+=head3 Register filter : C<register_filter()>

 use C<register_filter() to register filter.

@@ -536,7 +536,7 @@ use C<register_filter() to register filter.

 Registered filter is used by C<apply_filter()> or etc.

-=head3 Apply filter C<apply_filter()>

+=head3 Apply filter : C<apply_filter()>

 use C<apply_filter()> to apply registered filter.

@@ -641,7 +641,7 @@ use C<end_filter()> to add end filter.

 In this example, L<Time::Piece> object is converted to readable format.

-=head3 Automate applying filter C<each_column()>

+=head3 Automate applying filter : C<each_column()>

 It is useful to apply filter automatically at date type columns.

 You can use C<each_column()> to process all column infos.

@@ -712,8 +712,6 @@ You have to use C<table> tag in SQL

 =head3 Tag list

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

-

 The following tag is available.

 =head4 C<table>

@@ -779,7 +777,7 @@ In this case, You specify paramter values as array reference.

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

-=head3 Register Tag C<register_tag()>

+=head3 Register Tag : C<register_tag()>

 You can register custom tag.

 use C<register_tag()> to register tag.

@@ -827,116 +825,107 @@ You return the following array reference.

 See source of L<DBIx::Custom::Tag> to see many implementation.

-=head2 6. Where��̓��I�Ȑ���

+=head2 6. Dinamically create where clause

-=head3 Where��̓��I�Ȑ��� where()

+=head3 Dinamically create where clause : where()

-�����̌�����w�肵�āA�����s�������ꍇ������܂��B

-����3�‚̃P�[�X��where���l���Ă݂܂��傤�B

-���L�̂悤��where�傪�K�v�ɂȂ�܂��B

+You want to search multiple conditions in many times.

+Let's think the following three cases.

-title�̒l�����Ō�������ꍇ

+Case1: Search only C<title>

     where {= title}

-author�̒l�����Ō�������ꍇ

+Case2: Search only C<author>

     where {= author}

-title��author�̗���̒l�Ō�������ꍇ

+Case3: Search C<title> and C<author>

     where {= title} and {=author}

-L<DBIx::Custom>�ł͓��I��Where��̐�����T�|�[�g���Ă��܂��B

-�܂�C<where()>��L<DBIx::Custom::Where>�I�u�W�F�N�g�𐶐����܂��B

+L<DBIx::Custom> support dinamic where clause creating.

+At first, create L<DBIx::Custom::Where> object by C<where()>.

     my $where = $dbi->where;

-����C<clause()>��g�p����where���L�q���܂��B

+Set clause by C<clause()>

     $where->clause(

         ['and', '{= title'}, '{= author}']

     );

-clause�̎w���@�͎��̂悤�ɂȂ�܂��B

+C<clause> is the following format.

-    ['or' ���邢�� 'and', �^�O1, �^�O2, �^�O3]

+    ['or' or 'and', TAG1, TAG2, TAG3]

-����ɂ�or���邢��and��w�肵�܂��B����ȍ~�ɂ�

-������^�O��g��ċL�q���܂��B

+First argument is 'or' or 'and'.

+Later than first argument are tag names.

-C<clause>�̎w��͓��q�ɂ��邱�Ƃ�ł��A����ɕ��G�ȏ�

-��L�q���邱�Ƃ�ł��܂��B

+You can write more complex format.

     ['and', 

       '{= title}', 

       ['or', '{= author}', '{like date}']

     ]

-���̂悤��C<clause>��ݒ肵�����C<param>�Ƀp�����[�^��w�肵�܂��B

+This mean "{=title} and ( {=author} or {like date} )".

+

+After setting C<clause>, set C<param>.

-    my $param => {title => 'Perl'};

-    $where->param($param);

+    $where->param({title => 'Perl'});

-���̗�ł�title�������p�����[�^�Ɋ܂܂�Ă��܂��B

+In this example, parameter contains only title.

-���̌�C<to_string()>���s�����$param�Ɋ܂܂��p�����[�^�𖞂���

-where��𐶐����邱�Ƃ��ł��܂��B

+If you execute C<string_to()>, you can get where clause

+which contain only parameter name.

     my $where_clause = $where->to_string;

-�p�����[�^��title�����ł��̂ŁA���̂悤��where�傪��������܂��B

+Parameter name is only title, the following where clause is created.

     where {= title}

-�܂�L<DBIx::Custom>�͕�����̕]����I�[�o�[���[�h���āAC<to_string()>

-��Ăяo���悤�ɂ��Ă��܂��̂ŁA���̂悤�ɂ���where��𐶐����邱�Ƃ�

-�ł��܂��B

+You can also create where clause by stringification.

     my $where_clause = "$where";

-�����SQL�̒���where��𖄂ߍ��ނƂ��ɂƂĂ�𗧂‹@�\�ł��B

+This is useful to embbed it into SQL. 

-=head3 ����̗񖼂�܂ޏꍇ

+=head3 In case where clause contains same name columns

-�^�O�̒��ɓ���̖��O��‚�̂����݂����ꍇ�ł��I��

-where���쐬���邱�Ƃ��ł��܂��B

-

-���Ƃ��΁A�p�����[�^�Ƃ��ĊJ�n��t�ƏI����t��󂯎������Ƃ�

-�l���Ă݂Ă��������B

+Even if same name tags exists, you can create where clause.

+Let's think that there are starting date and ending date.

     my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};

-�܂��J�n��t�ƏI����t�̕Е���A�ǂ����󂯎��Ȃ��ꍇ���邩����܂���B

-

-���̏ꍇ�͎��̂悤�ȃp�����[�^�ɕϊ����邱�ƂőΉ����邱�Ƃ��ł��܂��B

+In this case, you set parameter value as array reference.

     my $p = {date => ['2010-11-15', '2011-11-21']};

-�l���z��̃��t�@�����X�ɂȂ�Ă��邱�Ƃɒ��ڂ��Ă��������B���̂悤�ɂ����

-�����̗��܂ރ^�O�ɏ��Ԃɖ��ߍ��ނ��Ƃ��ł��܂��B

+You can embbed these values into same name tags.

     $where->clause(

         ['and', '{> date}', '{< date}']

     );

     $where->param($p);

-�܂��J�n��t�����݂��Ȃ��ꍇ�͎��̂悤�ȃf�[�^��쐬���܂��B

+If starting date isn't exists, create the following parameter.

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

-L<DBIx::Custom>��C<not_exists>��DBIx::Custom::NotExists�I�u�W�F�N�g��

-�擾�ł��܂��B����͑Ή�����l�����݂��Ȃ����Ƃ�����߂̂�̂ł��B

+You can get DBIx::Custom::NotExists object by C<not_exists()>

+This mean correnspondinf value isn't exists.

-�܂��I����t�����݂��Ȃ��ꍇ�͎��̂悤�ȃf�[�^��쐬���܂��B

+If ending date isn't exists, create the following parameter.

     my $p = {date => ['2010-11-15']};

-�ǂ�����݂��Ȃ��ꍇ�͎��̂悤�ȃf�[�^��쐬���܂��B

+If both date isn't exists, create the following parameter.

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

-��������̂ň�ԊȒP�ɍ쐬�ł��郍�W�b�N����Ă����܂��B

+This logic is a little difficut. See the following ones.

     my @date;

     push @date, exists $param->{start_date} ? $param->{start_date}

@@ -944,30 +933,27 @@ L<DBIx::Custom>

     push @date, $param->{end_date} if exists $param->{end_date};

     my $p = {date => \@date};

-=head3 C<select()>�Ƃ̘A�g

+=head3 With C<select()>

-L<DBIx::Custom::Where>�I�u�W�F�N�g��

-C<select()>��C<where>�ɒ��ړn�����Ƃ�

-�ł��܂��B

+You can pass L<DBIx::Custom::Where> object to C<where> of C<select()>.

     my $where = $dbi->where;

-    $where->clause(...);

-    $where->param($param);

+    $where->clause(['and', '{= title}', '{= author}']);

+    $where->param({title => 'Perl'});

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

-���邢��C<update()>�AC<delete()>��where�Ɏw�肷�邱�Ƃ�”\�ł��B

-

-=head3 C<execute()>�Ƃ̘A�g

+You can also pass it to C<where> of C<update()>�AC<delete()>

-C<execute()>�Ƃ̘A�g�ł��BSQL��쐬����Ƃ��ɖ��ߍ��ނ��Ƃ��ł��܂��B

+=head3 With C<execute()>

+L<DBIx::Custom::Where> object is embedded into SQL.

     my $where = $dbi->where;

-    $where->clause(...);

-    $where->param($param);

+    $where->clause(['and', '{= title}', '{= author}']);

+    $where->param({title => 'Perl'});

-    my $sql = <<"EOS"

-    select * from book;

+    my $sql = <<"EOS";

+    select * from {table book};

     $where

     EOS

@@ -1153,7 +1139,7 @@ You can change result class. By default it is L<DBIx::Custom::Result>.

     my $dbi = DBIx::Custom->connect(...);

     $dbi->result_class('MyResult');

-=head3 �L���b�V���O

+=head3 Caching

 SQL after parsing tag is cached for performance.

 You can set C<cache()>. By default, chaching is true.

@@ -849,7 +849,6 @@ C<=>タグの場合は

 複数の検索条件を指定して、検索を行いたい場合があります。

 次の3つのケースのwhere句を考えてみましょう。

-下記のようなwhere句が必要になります。

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

@@ -889,10 +888,11 @@ C<clause>の指定は入れ子にすることもでき、さらに複雑な条

       ['or', '{= author}', '{like date}']

     ]

-このようにC<clause>を設定した後にC<param>にパラメータを指定します。

+これは "{=title} and ( {=author} or {like date} )" 意味しています。

+

+C<clause>を設定した後にC<param>にパラメータを指定します。

-    my $param => {title => 'Perl'};

-    $where->param($param);

+    $where->param({title => 'Perl'});

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

@@ -923,13 +923,10 @@ where句を作成することができます。

     my $param = {start_date => '2010-11-15', end_date => '2011-11-21'};

-また開始日付と終了日付の片方だけや、どちらも受け取らない場合もあるかもしれません。

-

-この場合は次のようなパラメータに変換することで対応することができます。

+この場合はパラメータの値を配列のリファレンスにしてください。

     my $p = {date => ['2010-11-15', '2011-11-21']};

-値が配列のリファレンスになっていることに注目してください。このようにすれば

 同名の列を含むタグに順番に埋め込むことができます。

     $where->clause(

@@ -941,7 +938,7 @@ where句を作成することができます。

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

-L<DBIx::Custom>のC<not_exists>でDBIx::Custom::NotExistsオブジェクトを

+C<not_exists()>でDBIx::Custom::NotExistsオブジェクトを

 取得できます。これは対応する値が存在しないことを示すためのものです。

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

@@ -982,7 +979,7 @@ C<execute()>との連携です。SQLを作成するときに埋め込むこと

     $where->clause(...);

     $where->param($param);

-    my $sql = <<"EOS"

+    my $sql = <<"EOS";

     select * from book;

     $where

     EOS