@@ -1300,6 +1300,8 @@ our %SELECT_AT_ARGS = (%SELECT_ARGS, where => 1, primary_key => 1);

 sub select_at {

     my ($self, %args) = @_;

+    warn "select_at is DEPRECATED! use update and id option instead";

+

     # Arguments

     my $primary_keys = delete $args{primary_key};

     $primary_keys = [$primary_keys] unless ref $primary_keys;

@@ -1327,6 +1329,8 @@ sub select_at {

 our %DELETE_AT_ARGS = (%DELETE_ARGS, where => 1, primary_key => 1);

 sub delete_at {

     my ($self, %args) = @_;

+

+    warn "delete_at is DEPRECATED! use update and id option instead";

     # Arguments

     my $primary_keys = delete $args{primary_key};

@@ -2034,15 +2038,6 @@ filter name registerd by C<register_filter()>.

 These filters are added to the C<out> filters, set by C<apply_filter()>.

-=head2 C<column>

-

-    my $column = $self->column(book => ['author', 'title']);

-

-Create column clause. The follwoing column clause is created.

-

-    book.author as book__author,

-    book.title as book__title

-

 =item C<query>

 Get L<DBIx::Custom::Query> object instead of executing SQL.

@@ -2054,61 +2049,38 @@ You can check SQL.

     my $sql = $query->sql;

-=back

-

-=head2 C<delete_all>

-

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

-

-Delete statement to delete all rows.

-Options is same as C<delete()>.

-

-=head2 C<delete_at()>

+=item C<id>

-Delete statement, using primary key.

+Delete using primary_key.

-    $dbi->delete_at(

-        table => 'book',

+    $dbi->delete(

         primary_key => 'id',

-        where => '5'

+        id => 4,

     );

-This method is same as C<delete()> exept that

-C<primary_key> is specified and C<where> is constant value or array refrence.

-all option of C<delete()> is available.

-

-=over 4

-

-=item C<primary_key>

-

-Primary key. This is constant value or array reference.

-    

-    # Constant value

-    $dbi->delete(primary_key => 'id');

+    $dbi->delete(

+        primary_key => ['id1', 'id2'],

+        id => [4, 5],

+    );

-    # Array reference

-    $dbi->delete(primary_key => ['id1', 'id2' ]);

+The above is same as the followin ones.

-This is used to create where clause.

+    $dbi->delete(where => {id => 4});

-=item C<where>

+    $dbi->delete(where => {id1 => 4, id2 => 5});

-Where clause, created from primary key information.

-This is constant value or array reference.

-

-    # Constant value

-    $dbi->delete(where => 5);

+=item C<primary_key>

-    # Array reference

-    $dbi->delete(where => [3, 5]);

+See C<id> option.

-In first examle, the following SQL is created.

+=back

-    delete from book where id = ?;

+=head2 C<delete_all>

-Place holder is set to 5.

+    $dbi->delete_all(table => $table);

-=back

+Delete statement to delete all rows.

+Options is same as C<delete()>.

 =head2 C<insert>

@@ -2189,54 +2161,8 @@ You can check SQL.

 =back

-=head2 C<insert_at()>

-

-Insert statement, using primary key.

-

-    $dbi->insert_at(

-        table => 'book',

-        primary_key => 'id',

-        where => '5',

-        param => {title => 'Perl'}

-    );

-

-This method is same as C<insert()> exept that

-C<primary_key> is specified and C<where> is constant value or array refrence.

-all option of C<insert()> is available.

-

 =over 4

-=item C<primary_key>

-

-Primary key. This is constant value or array reference.

-    

-    # Constant value

-    $dbi->insert(primary_key => 'id');

-

-    # Array reference

-    $dbi->insert(primary_key => ['id1', 'id2' ]);

-

-This is used to create parts of insert data.

-

-=item C<where>

-

-Parts of Insert data, create from primary key information.

-This is constant value or array reference.

-

-    # Constant value

-    $dbi->insert(where => 5);

-

-    # Array reference

-    $dbi->insert(where => [3, 5]);

-

-In first examle, the following SQL is created.

-

-    insert into book (id, title) values (?, ?);

-

-Place holders are set to 5 and 'Perl'.

-

-=back

-

 =head2 C<insert_param>

     my $insert_param = $dbi->insert_param({title => 'a', age => 2});

@@ -2378,42 +2304,6 @@ This is used by C<clause> of L<DBIx::Custom::Where> .

 Register filters, used by C<filter> option of many methods.

-=head2 C<register_tag> DEPRECATED!

-

-    $dbi->register_tag(

-        update => sub {

-            my @columns = @_;

-            

-            # Update parameters

-            my $s = 'set ';

-            $s .= "$_ = ?, " for @columns;

-            $s =~ s/, $//;

-            

-            return [$s, \@columns];

-        }

-    );

-

-Register tag, used by C<execute()>.

-

-See also L<Tags/Tags> about tag registered by default.

-

-Tag parser receive arguments specified in tag.

-In the following tag, 'title' and 'author' is parser arguments

-

-    {update_param title author} 

-

-Tag parser must return array refrence,

-first element is the result statement, 

-second element is column names corresponding to place holders.

-

-In this example, result statement is 

-

-    set title = ?, author = ?

-

-Column names is

-

-    ['title', 'author']

-

 =head2 C<select>

     my $result = $dbi->select(

@@ -2537,6 +2427,30 @@ you can pass parameter by C<param> option.

 Append statement to last of SQL. This is string.

     $dbi->select(append => 'order by title');

+    

+=item C<id>

+

+Select using primary_key.

+

+    $dbi->select(

+        primary_key => 'id',

+        id => 4,

+    );

+

+    $dbi->select(

+        primary_key => ['id1', 'id2'],

+        id => [4, 5]

+    );

+

+The above is same as the followin ones.

+

+    $dbi->insert(where => {id => 4});

+

+    $dbi->insert(where => {id1 => 4, id2 => 5});

+

+=item C<primary_key>

+

+See C<id> option.

 =item C<wrap> EXPERIMENTAL

@@ -2601,53 +2515,6 @@ This is used to bind paramter by C<bind_param()> of statment handle.

 =back

-=head2 C<select_at()>

-

-Select statement, using primary key.

-

-    $dbi->select_at(

-        table => 'book',

-        primary_key => 'id',

-        where => '5'

-    );

-

-This method is same as C<select()> exept that

-C<primary_key> is specified and C<where> is constant value or array refrence.

-all option of C<select()> is available.

-

-=over 4

-

-=item C<primary_key>

-

-Primary key. This is constant value or array reference.

-    

-    # Constant value

-    $dbi->select(primary_key => 'id');

-

-    # Array reference

-    $dbi->select(primary_key => ['id1', 'id2' ]);

-

-This is used to create where clause.

-

-=item C<where>

-

-Where clause, created from primary key information.

-This is constant value or array reference.

-

-    # Constant value

-    $dbi->select(where => 5);

-

-    # Array reference

-    $dbi->select(where => [3, 5]);

-

-In first examle, the following SQL is created.

-

-    select * from book where id = ?

-

-Place holder is set to 5.

-

-=back

-

 =head2 C<update>

     $dbi->update(

@@ -2700,7 +2567,7 @@ or array refrence.

     # String(with where_param option)

     $dbi->update(

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

-        where => 'id = :id'',

+        where => 'id = :id',

         where_param => {id => 2}

     );

@@ -2752,62 +2619,70 @@ You can check SQL.

     my $sql = $query->sql;

-=back

-

-=head2 C<update_all>

-

-    $dbi->update_all(table => 'book', param => {title => 'Perl'});

+Insert using primary_key.

-Update statement to update all rows.

-Options is same as C<update()>.

+    $dbi->insert(

+        primary_key => 'id',

+        id => 4,

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

+    );

-=head2 C<update_at()>

+    $dbi->insert(

+        primary_key => ['id1', 'id2'],

+        id => [4, 5],

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

+    );

-Update statement, using primary key.

+The above is same as the followin ones.

-    $dbi->update_at(

-        table => 'book',

-        primary_key => 'id',

-        where => '5',

-        param => {title => 'Perl'}

+    $dbi->insert(

+        param => {id => 4, title => 'Perl', author => 'Ken'}

     );

-This method is same as C<update()> exept that

-C<primary_key> is specified and C<where> is constant value or array refrence.

-all option of C<update()> is available.

+    $dbi->insert(

+        param => {id1 => 4, id2 => 5, title => 'Perl', author => 'Ken'}

+    );

-=over 4

+=item C<id>

-=item C<primary_key>

+update using primary_key.

-Primary key. This is constant value or array reference.

-    

-    # Constant value

-    $dbi->update(primary_key => 'id');

+    $dbi->update(

+        primary_key => 'id',

+        id => 4,

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

+    );

-    # Array reference

-    $dbi->update(primary_key => ['id1', 'id2' ]);

+    $dbi->update(

+        primary_key => ['id1', 'id2'],

+        id => [4, 5],

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

+    );

-This is used to create where clause.

+The above is same as the followin ones.

-=item C<where>

+    $dbi->update(

+        where => {id => 4}

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

+    );

-Where clause, created from primary key information.

-This is constant value or array reference.

+    $dbi->update(

+        where => {id1 => 4, id2 => 5},

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

+    );

-    # Constant value

-    $dbi->update(where => 5);

+=item C<primary_key>

-    # Array reference

-    $dbi->update(where => [3, 5]);

+See C<id> option.

-In first examle, the following SQL is created.

+=back

-    update book set title = ? where id = ?

+=head2 C<update_all>

-Place holders are set to 'Perl' and 5.

+    $dbi->update_all(table => 'book', param => {title => 'Perl'});

-=back

+Update statement to update all rows.

+Options is same as C<update()>.

 =head2 C<update_param>

@@ -2835,6 +2710,85 @@ Create a new L<DBIx::Custom::Where> object.

 Setup all model objects.

 C<columns> of model object is automatically set, parsing database information.

+=head2 C<update_at()> DEPRECATED!

+

+Update statement, using primary key.

+

+    $dbi->update_at(

+        table => 'book',

+        primary_key => 'id',

+        where => '5',

+        param => {title => 'Perl'}

+    );

+

+This method is same as C<update()> exept that

+C<primary_key> is specified and C<where> is constant value or array refrence.

+all option of C<update()> is available.

+

+=head2 C<delete_at()> DEPRECATED!

+

+Delete statement, using primary key.

+

+    $dbi->delete_at(

+        table => 'book',

+        primary_key => 'id',

+        where => '5'

+    );

+

+This method is same as C<delete()> exept that

+C<primary_key> is specified and C<where> is constant value or array refrence.

+all option of C<delete()> is available.

+

+=head2 C<select_at()> DEPRECATED!

+

+Select statement, using primary key.

+

+    $dbi->select_at(

+        table => 'book',

+        primary_key => 'id',

+        where => '5'

+    );

+

+This method is same as C<select()> exept that

+C<primary_key> is specified and C<where> is constant value or array refrence.

+all option of C<select()> is available.

+

+=head2 C<register_tag> DEPRECATED!

+

+    $dbi->register_tag(

+        update => sub {

+            my @columns = @_;

+            

+            # Update parameters

+            my $s = 'set ';

+            $s .= "$_ = ?, " for @columns;

+            $s =~ s/, $//;

+            

+            return [$s, \@columns];

+        }

+    );

+

+Register tag, used by C<execute()>.

+

+See also L<Tags/Tags> about tag registered by default.

+

+Tag parser receive arguments specified in tag.

+In the following tag, 'title' and 'author' is parser arguments

+

+    {update_param title author} 

+

+Tag parser must return array refrence,

+first element is the result statement, 

+second element is column names corresponding to place holders.

+

+In this example, result statement is 

+

+    set title = ?, author = ?

+

+Column names is

+

+    ['title', 'author']

+

 =head1 Parameter

 Parameter start at ':'. This is replaced to place holoder

@@ -2921,6 +2875,21 @@ Updata parameter tag.

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

+=head2 C<insert_at()> DEPRECATED!

+

+Insert statement, using primary key.

+

+    $dbi->insert_at(

+        table => 'book',

+        primary_key => 'id',

+        where => '5',

+        param => {title => 'Perl'}

+    );

+

+This method is same as C<insert()> exept that

+C<primary_key> is specified and C<where> is constant value or array refrence.

+all option of C<insert()> is available.

+

 =head1 ENVIRONMENT VARIABLE

 =head2 C<DBIX_CUSTOM_DEBUG>

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

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

-=head3 insert by using primary key : C<insert_at()>

-

-To insert row by using primary key, use C<insert_at()>

-

-    $dbi->insert_at(

-        table => 'book', primary_key => ['id'],

-        where => ['123'], param => {name => 'Ken'}

-    );

-

-In this example, row which id column is 123 is inserted.

-NOTE that you must pass array reference as C<where>.

-If C<param> contains primary key, the key and value is delete from C<param>.

-

-=head3 Update by using primary key : C<update_at()>

-

-To update row by using primary key, use C<update_at()>

-

-    $dbi->update_at(

-        table => 'book', primary_key => ['id'],

-        where => ['123'], param => {name => 'Ken'}

-    );

-

-In this example, row which id column is 123 is updated.

-NOTE that you must pass array reference as C<where>.

-If C<param> contains primary key, the key and value is delete from C<param>.

-

-=head3 Delete by using primary key : C<delete_at()>

-

-To delete row by using primary key, use C<delete_at()>

-

-    $dbi->delete_at(table => 'book', primary_key => ['id'], where => ['123']);

-

-In this example, row which id column is 123 is deleted.

-NOTE that you must pass array reference as C<where>.

-

-You can also write arguments like this.

-

-    $dbi->delete_at(table => 'book', primary_key => ['id'], param => {id => '123'});

-

-=head3 Select by using primary key : C<select_at()>

-

-To select row by using primary key, use C<select_at()>.

-

-    $dbi->select_at(table => 'book', primary_key => ['id'], where => ['123']);

-

-In this example, row which id colunm is 123 is selected.

-NOTE that you must pass array reference as C<where>.

-

-You can also write arguments like this.

-

-    $dbi->select_at(table => 'book', primary_key => ['id'], param => {id => '123'});

-

 =head2 3. Fetch row

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

@@ -410,58 +410,6 @@ SQLを実行するにはC<execute()>を使用します。

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

-=head3 プライマリーキーを利用した行の挿入 C<insert_at()>

-

-プライマリーを使用して行を更新するにはC<insert_at()>を使用します。

-

-    $dbi->insert_at(

-        table => 'book', primary_key => ['id'],

-        where => ['123'], param => {name => 'Ken'}

-    );

-

-この例ではidの列が123の行に挿入されます。C<where>には、配列の

-リファレンスを渡す必要があることに注意してください。

-なおC<param>にプライマリーキーが含まれていた場合は、そのキーが削除されます。

-

-=head3 プライマリーキーを利用した行の更新 C<update_at()>

-

-プライマリーを使用して行を更新するにはC<update_at()>を使用します。

-

-    $dbi->update_at(

-        table => 'book', primary_key => ['id'],

-        where => ['123'], param => {name => 'Ken'}

-    );

-

-この例ではidの列が123の行が更新されます。C<where>には、配列の

-リファレンスを渡す必要があることに注意してください。

-なおC<param>にプライマリーキーが含まれていた場合は、そのキーが削除されます。

-

-=head3 プライマリーキーを利用した行の削除 C<delete_at()>

-

-プライマリーを使用して行を削除するにはC<delete_at()>を使用します。

-

-    $dbi->delete_at(table => 'book', primary_key => ['id'], where => ['123']);

-

-この例ではidの列が123の行が削除されます。C<where>には、配列の

-リファレンスを渡す必要があることに注意してください。

-

-また下のような記述方法も許されています。

-

-    $dbi->delete_at(table => 'book', primary_key => ['id'], param => {id => '123'});

-

-=head3 プライマリーキーを利用した行の選択 C<select_at()>

-

-プライマリーを使用して行を選択するにはC<select_at()>を使用します。

-

-    $dbi->select_at(table => 'book', primary_key => ['id'], where => ['123']);

-

-この例ではidの列が123の行が選択されます。C<where>には、配列の

-リファレンスを渡す必要があることに注意してください。

-

-また下のような記述方法も許されています。

-

-    $dbi->select_at(table => 'book', primary_key => ['id'], param => {id => '123'});

-

 =head2 3. 行のフェッチ

 C<select()>メソッドの戻り値はL<DBIx::Custom::Result>オブジェクトです。