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

+0.1685

+    - insert, insert_at, update, update_at can receive odd number arguments,

+      first one is parameter.

 0.1684

     - added DBIx::Custom::Result all method, this is alias for fetch_hash_all

     - added DBIx::Custom::Result one method, this is alias for fetch_hash_first

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

 package DBIx::Custom;

-our $VERSION = '0.1684';

+our $VERSION = '0.1685';

 use 5.008001;

 use strict;

@@ -574,13 +574,17 @@ sub execute {

 our %INSERT_ARGS = map { $_ => 1 } @COMMON_ARGS, qw/param append/;

 sub insert {

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

+    my $self = shift;

     # Arguments

+    my $param;

+    $param = shift if @_ % 2;

+    my %args = @_;

     my $table  = delete $args{table};

     croak qq{"table" option must be specified } . _subname

       unless $table;

-    my $param  = delete $args{param} || {};

+    my $p = delete $args{param} || {};

+    $param  ||= $p;

     my $append = delete $args{append} || '';

     my $query_return  = delete $args{query};

@@ -615,13 +619,17 @@ sub insert {

 our %INSERT_AT_ARGS = (%INSERT_ARGS, where => 1, primary_key => 1);

 sub insert_at {

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

+    my $self = shift;

     # Arguments

+    my $param;

+    $param = shift if @_ % 2;

+    my %args = @_;

     my $primary_keys = delete $args{primary_key};

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

     my $where = delete $args{where};

-    my $param = delete $args{param};

+    my $p = delete $args{param} || {};

+    $param  ||= $p;

     # Check arguments

     foreach my $name (keys %args) {

@@ -1001,13 +1009,17 @@ our %UPDATE_ARGS

   = map { $_ => 1 } @COMMON_ARGS, qw/param where append allow_update_all where_param/;

 sub update {

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

+    my $self = shift;

     # Arguments

+    my $param;

+    $param = shift if @_ % 2;

+    my %args = @_;

     my $table = delete $args{table} || '';

     croak qq{"table" option must be specified } . _subname

       unless $table;

-    my $param            = delete $args{param} || {};

+    my $p = delete $args{param} || {};

+    $param  ||= $p;

     my $where            = delete $args{where} || {};

     my $where_param      = delete $args{where_param} || {};

     my $append           = delete $args{append} || '';

@@ -1069,14 +1081,18 @@ sub update_all { shift->update(allow_update_all => 1, @_) };

 our %UPDATE_AT_ARGS = (%UPDATE_ARGS, where => 1, primary_key => 1);

 sub update_at {

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

+    my $self = shift;

     # Arguments

+    my $param;

+    $param = shift if @_ % 2;

+    my %args = @_;

     my $primary_keys = delete $args{primary_key};

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

     my $where = delete $args{where};

+    my $p = delete $args{param} || {};

+    $param  ||= $p;

-

     # Check arguments

     foreach my $name (keys %args) {

         croak qq{"$name" is wrong option } . _subname

@@ -1086,7 +1102,7 @@ sub update_at {

     # Create where parameter

     my $where_param = $self->_create_where_param($where, $primary_keys);

-    return $self->update(where => $where_param, %args);

+    return $self->update(where => $where_param, param => $param, %args);

 }

 sub update_param {

@@ -2062,28 +2078,32 @@ Place holder is set to 5.

 =head2 C<insert>

     $dbi->insert(

-        table  => 'book', 

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

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

+        table  => 'book'

     );

-

+    

 Insert statement.

 The following opitons are currently available.

 =over 4

-=item C<table>

-

-Table name.

-

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

-

 =item C<param>

 Insert data. This is hash reference.

     $dbi->insert(param => {title => 'Perl'});

+If arguments is odd numbers, first argument is received as C<param>.

+

+    $dbi->insert({title => 'Perl', author => 'Ken'}, table => 'book');

+

+=item C<table>

+

+Table name.

+

+    $dbi->insert(table => 'book');

+

 =item C<append>

 Append statement to last of SQL. This is string.

@@ -2607,18 +2627,26 @@ The following opitons are currently available.

 =over 4

-=item C<table>

-

-Table name.

-

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

-

 =item C<param>

 Update data. This is hash reference.

     $dbi->update(param => {title => 'Perl'});

+If arguments is odd numbers, first argument is received as C<param>.

+

+    $dbi->update(

+        {title => 'Perl'},

+        table => 'book',

+        where => {author => 'Ken'}

+    );

+

+=item C<table>

+

+Table name.

+

+    $dbi->update(table => 'book');

+

 =item C<where>

 Where clause. This is hash reference or L<DBIx::Custom::Where> object

@@ -285,6 +285,14 @@ $result = $dbi->execute('select * from "table"');

 $rows   = $result->fetch_hash_all;

 is_deeply($rows, [{select => 2}], "reserved word");

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

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

+$dbi->insert({key1 => 1, key2 => 2}, table => 'table1');

+$dbi->insert({key1 => 3, key2 => 4}, table => 'table1');

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "basic");

+

 test 'update';

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

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

@@ -399,6 +407,17 @@ $result = $dbi->execute('select * from "table"');

 $rows   = $result->fetch_hash_all;

 is_deeply($rows, [{select => 2, update => 6}], "reserved word");

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

+$dbi->execute($CREATE_TABLE->{1});

+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

+$dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

+$dbi->update({key2 => 11}, table => 'table1', where => {key1 => 1});

+$result = $dbi->execute($SELECT_SOURCES->{0});

+$rows   = $result->fetch_hash_all;

+is_deeply($rows, [{key1 => 1, key2 => 11, key3 => 3, key4 => 4, key5 => 5},

+                  {key1 => 6, key2 => 7,  key3 => 8, key4 => 9, key5 => 10}],

+                  "basic");

+

 test 'update_all';

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

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

@@ -1621,6 +1640,18 @@ eval {

 };

 like($@, qr/must be/);

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

+$dbi->execute($CREATE_TABLE->{1});

+$dbi->insert_at(

+    {key3 => 3},

+    primary_key => ['key1', 'key2'], 

+    table => 'table1',

+    where => [1, 2],

+);

+is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);

+is($dbi->select(table => 'table1')->fetch_hash_first->{key2}, 2);

+is($dbi->select(table => 'table1')->fetch_hash_first->{key3}, 3);

+

 test 'update_at';

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

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

@@ -1647,6 +1678,19 @@ is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);

 is($dbi->select(table => 'table1')->fetch_hash_first->{key2}, 2);

 is($dbi->select(table => 'table1')->fetch_hash_first->{key3}, 4);

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

+$dbi->execute($CREATE_TABLE->{1});

+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3});

+$dbi->update_at(

+    {key3 => 4},

+    table => 'table1',

+    primary_key => ['key1', 'key2'],

+    where => [1, 2]

+);

+is($dbi->select(table => 'table1')->fetch_hash_first->{key1}, 1);

+is($dbi->select(table => 'table1')->fetch_hash_first->{key2}, 2);

+is($dbi->select(table => 'table1')->fetch_hash_first->{key3}, 4);

+

 test 'select_at';

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

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