@@ -252,24 +252,24 @@ sub delete {

     my $filter           = $args{filter};

     my $allow_delete_all = $args{allow_delete_all};

-    # Where keys

-    my @where_keys = keys %$where;

-    

-    # Not exists where keys

-    croak qq{"where" argument must be specified and } .

-          qq{contains the pairs of column name and value}

-      if !@where_keys && !$allow_delete_all;

-    

-    # Where clause

-    my $where_clause = '';

-    if (@where_keys) {

-        $where_clause = 'where ';

-        $where_clause .= "{= $_} and " for @where_keys;

-        $where_clause =~ s/ and $//;

+    # Where

+    my $w;

+    if (ref $where eq 'HASH') {

+        my $clause = ['and'];

+        push @$clause, "{= $_}" for keys %$where;

+        $w = $self->where;

+        $w->clause($clause);

     }

+    else { $w = $where }

+    croak qq{"where" must be hash refernce or DBIx::Custom::Where object}

+      unless ref $w eq 'DBIx::Custom::Where';

+    

+    croak qq{"where" must be specified}

+      if "$w" eq '' && !$allow_delete_all;

+

     # Source of SQL

-    my $source = "delete from $table $where_clause";

+    my $source = "delete from $table $w";

     $source .= " $append" if $append;

     # Create query

@@ -951,22 +951,80 @@ where句を生成することができます。

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

-また同一の列名を持つ場合はパラメータを配列のリファレンスにしてください。

+=head3 同一の列名を含む場合

-[undef, undef]

+タグの中に同一の名前を持つものが存在した場合でも動的に

+where句を作成することができます。

-[sub {'not exists'}, 1]

- 

+たとえば、パラメータとして開始日付と終了日付を受け取ったことを

+考えてみてください。

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

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

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

-=head3 select()との連携

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

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

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

+    $where->clause(

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

+    );

+    $where->param($p);

+

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

+

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

+

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

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

+

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

+

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

-=head3 execute()との連携

+どちらも存在しない場合は次のようなデータを作成します。

+

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

+

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

+

+    my @date;

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

+                                            : $dbi->not_exists;

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

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

+

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

+

+C<select()>との連携です。C<select()>のC<where>に直接渡すことが

+できます。

+    

+    my $where = $dbi->where;

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

+    $where->param($param);

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

+

+あるいはC<update>、C<delete>と連携することが可能です。

+

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

+

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

+

+

+    my $where = $dbi->where;

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

+    $where->param($param);

+

+    my $sql = <<"EOS"

+    select * from book;

+    $where

+    EOS

+    $dbi->execute($sql, param => $param);

 =head2 7. パフォーマンスの改善

@@ -331,7 +331,7 @@ test 'delete error';

 $dbi = DBIx::Custom->connect($NEW_ARGS->{0});

 $dbi->execute($CREATE_TABLE->{0});

 eval{$dbi->delete(table => 'table1')};

-like($@, qr/"where" argument must be specified and contains the pairs of column name and value/,

+like($@, qr/"where" must be specified/,

          "where key-value pairs not specified");

 test 'delete_all';

@@ -1033,6 +1033,56 @@ $result = $dbi->select(

 $row = $result->fetch_hash_all;

 is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');

+$where = $dbi->where

+             ->clause(['or', ('{= key1}') x 3])

+             ->param({key1 => []});

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], 'not_exists');

+

+$where = $dbi->where

+             ->clause(['and', '{> key1}', '{< key1}' ])

+             ->param({key1 => [2, $dbi->not_exists]});

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 3, key2 => 4}], 'not_exists');

+

+$where = $dbi->where

+             ->clause(['and', '{> key1}', '{< key1}' ])

+             ->param({key1 => [$dbi->not_exists, 2]});

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');

+

+$where = $dbi->where

+             ->clause(['and', '{> key1}', '{< key1}' ])

+             ->param({key1 => [$dbi->not_exists, $dbi->not_exists]});

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 1, key2 => 2},{key1 => 3, key2 => 4}], 'not_exists');

+

+$where = $dbi->where

+             ->clause(['and', '{> key1}', '{< key1}' ])

+             ->param({key1 => [0, 2]});

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 1, key2 => 2}], 'not_exists');

+

 test 'dbi_option default';

 $dbi = DBIx::Custom->new;

 is_deeply($dbi->dbi_option, {});