@@ -1,3 +1,7 @@

+0.0301

+  rename fetch_all_hash to fetch_hash_all (not backword compatible)

+  rename fetch_rows_hash to fetch_hash_rows (not backword compatible)

+  rename fetch_first_hash to fetch_hash_first (not backword compatible)

 0.0202

   add build requires 'DBI'

 0.0201

@@ -1,10 +1,11 @@

 package DBIx::Custom::Result;

 use Object::Simple;

-

-our $VERSION = '0.0202';

-

+use strict;

+use warnings;

 use Carp 'croak';

+our $VERSION = '0.0301';

+

 # Attributes

 sub sth              : Attr {}

 sub fetch_filter     : Attr {}

@@ -98,7 +99,7 @@ sub fetch_first {

 }

 # Fetch only first (hash)

-sub fetch_first_hash {

+sub fetch_hash_first {

     my $self = shift;

     # Fetch hash

@@ -136,7 +137,7 @@ sub fetch_rows {

 }

 # Fetch multi rows (hash)

-sub fetch_rows_hash {

+sub fetch_hash_rows {

     my ($self, $count) = @_;

     # Not specified Row count

@@ -170,7 +171,7 @@ sub fetch_all {

 }

 # Fetch all (hash)

-sub fetch_all_hash {

+sub fetch_hash_all {

     my $self = shift;

     my $rows = [];

@@ -198,7 +199,7 @@ DBIx::Custom::Result - Resultset for DBIx::Custom

 =head1 VERSION

-Version 0.0202

+Version 0.0301

 =head1 SYNOPSIS

@@ -284,13 +285,13 @@ fetch_hash method is fetch resultset and get row as hash or hash reference.

 This method fetch only first and finish statement handle

-=head2 fetch_first_hash

+=head2 fetch_hash_first

     # Fetch only first as hash (Scalar context)

-    $row = $result->fetch_first_hash;

+    $row = $result->fetch_hash_first;

     # Fetch only first as hash (Scalar context)

-    @row = $result->fetch_first_hash;

+    @row = $result->fetch_hash_first;

 This method fetch only first and finish statement handle

@@ -305,16 +306,16 @@ This method fetch only first and finish statement handle

     # Sapmle 

     $rows = $result->fetch_rows(10);

-=head2 fetch_rows_hash

+=head2 fetch_hash_rows

     # Fetch multi rows as hash (Scalar context)

-    $rows = $result->fetch_rows_hash($row_count);

+    $rows = $result->fetch_hash_rows($row_count);

     # Fetch multi rows as hash (List context)

-    @rows = $result->fetch_rows_hash($row_count);

+    @rows = $result->fetch_hash_rows($row_count);

     # Sapmle 

-    $rows = $result->fetch_rows_hash(10);

+    $rows = $result->fetch_hash_rows(10);

 =head2 fetch_all

@@ -331,16 +332,16 @@ This method fetch only first and finish statement handle

 fetch_all method is fetch resultset and get all rows as array or array reference.

-=head2 fetch_all_hash

+=head2 fetch_hash_all

     # Fetch all row as array ref of hash ref (Scalar context)

-    $rows = $result->fetch_all_hash;

+    $rows = $result->fetch_hash_all;

     # Fetch all row as array of hash ref (List context)

     @rows = $result->fecth_all_hash;

     # Sample

-    my $rows = $result->fetch_all_hash;

+    my $rows = $result->fetch_hash_all;

     my $val0_key1 = $rows->[0]{key1};

     my $val1_key2 = $rows->[1]{key2};

@@ -95,17 +95,17 @@ is_deeply([@row], [1, 2], "$test : row");

 ok(!@row, "$test : finished");

-test 'fetch_first_hash';

+test 'fetch_hash_first';

 $result = query($dbh, $sql);

-$row = $result->fetch_first_hash;

+$row = $result->fetch_hash_first;

 is_deeply($row, {key1 => 1, key2 => 2}, "$test : row");

 $row = $result->fetch_hash;

 ok(!$row, "$test : finished");

-test 'fetch_first_hash list context';

+test 'fetch_hash_first list context';

 $result = query($dbh, $sql);

-@row = $result->fetch_first_hash;

+@row = $result->fetch_hash_first;

 is_deeply({@row}, {key1 => 1, key2 => 2}, "$test : row");

 @row = $result->fetch_hash;

 ok(!@row, "$test : finished");

@@ -148,38 +148,38 @@ eval {$result->fetch_rows};

 like($@, qr/Row count must be specified/, "$test : Not specified row count");

-test 'fetch_rows_hash';

+test 'fetch_hash_rows';

 $result = query($dbh, $sql);

-$rows = $result->fetch_rows_hash(2);

+$rows = $result->fetch_hash_rows(2);

 is_deeply($rows, [{key1 => 1, key2 => 2},

                   {key1 => 3, key2 => 4}], "$test : fetch_rows first");

-$rows = $result->fetch_rows_hash(2);

+$rows = $result->fetch_hash_rows(2);

 is_deeply($rows, [{key1 => 5, key2 => 6},

                   {key1 => 7, key2 => 8}], "$test : fetch_rows secound");

-$rows = $result->fetch_rows_hash(2);

+$rows = $result->fetch_hash_rows(2);

 is_deeply($rows, [{key1 => 9, key2 => 10}], "$test : fetch_rows third");

-$rows = $result->fetch_rows_hash(2);

+$rows = $result->fetch_hash_rows(2);

 ok(!$rows);

 test 'fetch_rows list context';

 $result = query($dbh, $sql);

-@rows = $result->fetch_rows_hash(2);

+@rows = $result->fetch_hash_rows(2);

 is_deeply([@rows], [{key1 => 1, key2 => 2},

                     {key1 => 3, key2 => 4}], "$test : fetch_rows first");

-@rows = $result->fetch_rows_hash(2);

+@rows = $result->fetch_hash_rows(2);

 is_deeply([@rows], [{key1 => 5, key2 => 6},

                     {key1 => 7, key2 => 8}], "$test : fetch_rows secound");

-@rows = $result->fetch_rows_hash(2);

+@rows = $result->fetch_hash_rows(2);

 is_deeply([@rows], [{key1 => 9, key2 => 10}], "$test : fetch_rows third");

-@rows = $result->fetch_rows_hash(2);

+@rows = $result->fetch_hash_rows(2);

 ok(!@rows);

 $dbh->do("delete from table1 where key1 = 5 or key1 = 7 or key1 = 9");

 test 'fetch_rows error';

 $result = query($dbh, $sql);

-eval {$result->fetch_rows_hash};

+eval {$result->fetch_hash_rows};

 like($@, qr/Row count must be specified/, "$test : Not specified row count");

@@ -194,13 +194,13 @@ $result = query($dbh, $sql);

 is_deeply(\@rows, [[1, 2], [3, 4]], $test);

-test 'fetch_all_hash';

+test 'fetch_hash_all';

 $result = query($dbh, $sql);

-@rows = $result->fetch_all_hash;

+@rows = $result->fetch_hash_all;

 is_deeply($rows, [[1, 2], [3, 4]], $test);

-test 'fetch_all_hash list context';

+test 'fetch_hash_all list context';

 $result = query($dbh, $sql);

 @rows = $result->fetch_all;

 is_deeply(\@rows, [[1, 2], [3, 4]], $test);

@@ -222,7 +222,7 @@ is_deeply($rows, [[3, 2], [3, 4]], "$test array");

 $result = query($dbh, $sql);

 $result->fetch_filter($fetch_filter);

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 2}, {key1 => 3, key2 => 4}], "$test hash");

 $result = query($dbh, $sql);

@@ -232,7 +232,7 @@ is_deeply($rows, [[1, 2], [3, 4]], "$test array no filter keys");

 $result = query($dbh, $sql);

 $result->no_fetch_filters(['key1']);

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "$test hash no filter keys");

@@ -1,3 +1,5 @@

+0.0201

+  catch up DBIx::Custom::Result version up

 0.0102

   update document

 0.0101

@@ -5,7 +5,7 @@ use warnings;

 use strict;

 use Carp 'croak';

-our $VERSION = '0.0102';

+our $VERSION = '0.0201';

 my $class = __PACKAGE__;

@@ -59,7 +59,7 @@ DBIx::Custom::SQLite - DBIx::Custom SQLite implementation

 =head1 Version

-Version 0.0102

+Version 0.0201

 =head1 Synopsys

@@ -32,7 +32,7 @@ $ret_val = $dbi->do($CREATE_TABLE->{0});

 ok(defined $ret_val, $test);

 $dbi->utf8_filter_on;

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

-$rows = $dbi->select('table1', {key1 => 'あ'})->fetch_all_hash;

+$rows = $dbi->select('table1', {key1 => 'あ'})->fetch_hash_all;

 is_deeply($rows, [{key1 => 'あ', key2 => 2}], "$test : select rows");

 test 'connect_memory error';

@@ -1,3 +1,5 @@

+0.0401

+  catch up with DBIx::Custom::Result version up

 0.0301

   exchange filter argument 'key', 'value' (not backword compatible)

 0.0201

@@ -1,7 +1,7 @@

 package DBIx::Custom;

 use Object::Simple;

-our $VERSION = '0.0301';

+our $VERSION = '0.0401';

 use Carp 'croak';

 use DBI;

@@ -736,7 +736,7 @@ DBIx::Custom - Customizable simple DBI

 =head1 VERSION

-Version 0.0301

+Version 0.0401

 =head1 CAUTION

@@ -139,12 +139,12 @@ $result = $dbi->execute($query);

 is_deeply(\@rows, [[1, 2], [3, 4]], "$test : fetch_all list context");

 $result = $dbi->execute($query);

-@rows = $result->fetch_all_hash;

-is_deeply($rows, [[1, 2], [3, 4]], "$test : fetch_all_hash scalar context");

+@rows = $result->fetch_hash_all;

+is_deeply($rows, [[1, 2], [3, 4]], "$test : fetch_hash_all scalar context");

 $result = $dbi->execute($query);

 @rows = $result->fetch_all;

-is_deeply(\@rows, [[1, 2], [3, 4]], "$test : fetch_all_hash list context");

+is_deeply(\@rows, [[1, 2], [3, 4]], "$test : fetch_hash_all list context");

 test 'Insert query return value';

@@ -171,7 +171,7 @@ $dbi->execute($insert_tmpl, {key1 => 1, key2 => 2}, sub {

     });

 });

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 3}], $test);

@@ -198,7 +198,7 @@ $select_query->fetch_filter(sub {

     return $value;

 });

 $result = $dbi->execute($select_query);

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 2, key2 => 6}], "$test : bind_filter fetch_filter");

 $dbi->do("delete from table1;");

@@ -206,7 +206,7 @@ $insert_query->no_bind_filters('key1');

 $select_query->no_fetch_filters('key2');

 $dbi->execute($insert_query, {key1 => 1, key2 => 2});

 $result = $dbi->execute($select_query);

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2}], "$test : no_fetch_filters no_bind_filters");

 $dbi->do($DROP_TABLE->{0});

@@ -223,7 +223,7 @@ $insert_query->bind_filter(sub {

 $dbi->execute($insert_query, {table1 => {key1 => 1, key2 => 2}});

 $select_query = $dbi->create_query($SELECT_TMPL->{0});

 $result       = $dbi->execute($select_query);

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 2}], "$test : insert with table name");

 test 'Filter in';

@@ -240,7 +240,7 @@ $select_query->bind_filter(sub {

     return $value;

 });

 $result = $dbi->execute($select_query, {table1 => {key1 => [1,5], key2 => [2,5]}});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 2, key2 => 4}], "$test : bind_filter");

@@ -254,37 +254,37 @@ $sth->execute(6, 7, 8, 9, 10);

 $tmpl = "select * from table1 where {= key1} and {<> key2} and {< key3} and {> key4} and {>= key5};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic tag1");

 $tmpl = "select * from table1 where {= table1.key1} and {<> table1.key2} and {< table1.key3} and {> table1.key4} and {>= table1.key5};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {table1 => {key1 => 1, key2 => 3, key3 => 4, key4 => 3, key5 => 5}});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic tag1 with table");

 $tmpl = "select * from table1 where {= table1.key1} and {<> table1.key2} and {< table1.key3} and {> table1.key4} and {>= table1.key5};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {'table1.key1' => 1, 'table1.key2' => 3, 'table1.key3' => 4, 'table1.key4' => 3, 'table1.key5' => 5});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic tag1 with table dot");

 $tmpl = "select * from table1 where {<= key1} and {like key2};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {key1 => 1, key2 => '%2%'});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic tag2");

 $tmpl = "select * from table1 where {<= table1.key1} and {like table1.key2};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {table1 => {key1 => 1, key2 => '%2%'}});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic tag2 with table");

 $tmpl = "select * from table1 where {<= table1.key1} and {like table1.key2};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {'table1.key1' => 1, 'table1.key2' => '%2%'});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic tag2 with table dot");

@@ -298,19 +298,19 @@ $sth->execute(6, 7, 8, 9, 10);

 $tmpl = "select * from table1 where {in key1 2};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {key1 => [9, 1]});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic");

 $tmpl = "select * from table1 where {in table1.key1 2};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {table1 => {key1 => [9, 1]}});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : with table");

 $tmpl = "select * from table1 where {in table1.key1 2};";

 $query = $dbi->create_query($tmpl);

 $result = $dbi->execute($query, {'table1.key1' => [9, 1]});

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : with table dot");

@@ -320,39 +320,39 @@ $insert_tmpl = 'insert into table1 {insert key1 key2 key3 key4 key5}';

 $dbi->execute($insert_tmpl, {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : basic");

 $dbi->do("delete from table1");

 $dbi->execute($insert_tmpl, {'#insert' => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : #insert");

 $dbi->do("delete from table1");

 $insert_tmpl = 'insert into table1 {insert table1.key1 table1.key2 table1.key3 table1.key4 table1.key5}';

 $dbi->execute($insert_tmpl, {table1 => {key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : with table name");

 $dbi->do("delete from table1");

 $insert_tmpl = 'insert into table1 {insert table1.key1 table1.key2 table1.key3 table1.key4 table1.key5}';

 $dbi->execute($insert_tmpl, {'table1.key1' => 1, 'table1.key2' => 2, 'table1.key3' => 3, 'table1.key4' => 4, 'table1.key5' => 5});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : with table name dot");

 $dbi->do("delete from table1");

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

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : #insert with table name");

 $dbi->do("delete from table1");

 $dbi->execute($insert_tmpl, {'#insert' => {'table1.key1' => 1, 'table1.key2' => 2, 'table1.key3' => 3, 'table1.key4' => 4, 'table1.key5' => 5}});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2, key3 => 3, key4 => 4, key5 => 5}], "$test : #insert with table name dot");

@@ -366,39 +366,39 @@ $update_tmpl = 'update table1 {update key1 key2 key3 key4} where {= key5}';

 $dbi->execute($update_tmpl, {key1 => 1, key2 => 1, key3 => 1, key4 => 1, key5 => 5});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

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

                   {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "$test : basic");

 $dbi->execute($update_tmpl, {'#update' => {key1 => 2, key2 => 2, key3 => 2, key4 => 2}, key5 => 5});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 2, key2 => 2, key3 => 2, key4 => 2, key5 => 5},

                   {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "$test : #update");

 $update_tmpl = 'update table1 {update table1.key1 table1.key2 table1.key3 table1.key4} where {= table1.key5}';

 $dbi->execute($update_tmpl, {table1 => {key1 => 3, key2 => 3, key3 => 3, key4 => 3, key5 => 5}});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

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

                   {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "$test : with table name");

 $update_tmpl = 'update table1 {update table1.key1 table1.key2 table1.key3 table1.key4} where {= table1.key5}';

 $dbi->execute($update_tmpl, {'table1.key1' => 4, 'table1.key2' => 4, 'table1.key3' => 4, 'table1.key4' => 4, 'table1.key5' => 5});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

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

                   {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "$test : with table name dot");

 $dbi->execute($update_tmpl, {'#update' => {table1 => {key1 => 5, key2 => 5, key3 => 5, key4 => 5}}, table1 => {key5 => 5}});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 5, key2 => 5, key3 => 5, key4 => 5, key5 => 5},

                   {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "$test : update tag #update with table name");

 $dbi->execute($update_tmpl, {'#update' => {'table1.key1' => 6, 'table1.key2' => 6, 'table1.key3' => 6, 'table1.key4' => 6}, 'table1.key5' => 5});

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

-$rows = $result->fetch_all_hash;

+$rows = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 6, key2 => 6, key3 => 6, key4 => 6, key5 => 5},

                   {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10}], "$test : update tag #update with table name dot");

@@ -412,7 +412,7 @@ $dbi->run_transaction(sub {

     $dbi->execute($insert_tmpl, {key1 => 3, key2 => 4});

 });

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

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

 $dbi->do($DROP_TABLE->{0});

@@ -429,7 +429,7 @@ eval{

 like($@, qr/Fatal Error.*Rollback is success/ms, "$test : Rollback success message");

 ok(!$dbi->dbh->{RaiseError}, "$test : restore RaiseError value");

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

 is_deeply($rows, [], "$test : rollback");

@@ -477,7 +477,7 @@ $dbi->do($CREATE_TABLE->{0});

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

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

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

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

 $dbi->do('delete from table1');

@@ -492,7 +492,7 @@ $dbi->insert('table1', {key1 => 1, key2 => 2}, sub {

     });

 });

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 2}], "$test : edit_query_callback");

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

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

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

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

-$rows   = $result->fetch_all_hash;

+$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}],

                   "$test : basic");

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

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

 $dbi->update('table1', {key2 => 12}, {key2 => 2, key3 => 3});

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

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

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

                   "$test : update key same as search key");

@@ -540,7 +540,7 @@ $dbi->update('table1', {key2 => 11}, {key1 => 1}, sub {

     });

 });

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

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

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

                   "$test : query edit callback");

@@ -575,7 +575,7 @@ $dbi->update_all('table1', {key2 => 10}, sub {

     })

 });

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

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

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

                   "$test : query edit callback");

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

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

 $dbi->delete('table1', {key1 => 1});

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 4}], "$test : basic");

 $dbi->do("delete from table1;");

@@ -602,14 +602,14 @@ $dbi->delete('table1', {key2 => 1}, sub {

     });

 });

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 4}], "$test : query edit callback");

 $dbi->delete_all('table1');

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

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

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

-$rows = $dbi->select('table1')->fetch_all_hash;

+$rows = $dbi->select('table1')->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 4}], "$test : delete multi key");

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

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

 $dbi->delete_all('table1');

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

-$rows   = $result->fetch_all_hash;

+$rows   = $result->fetch_hash_all;

 is_deeply($rows, [], "$test : basic");

@@ -641,20 +641,20 @@ $dbi = DBIx::Custom->new($NEW_ARGS->{0});

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

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

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

-$rows = $dbi->select('table1')->fetch_all_hash;

+$rows = $dbi->select('table1')->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2},

                   {key1 => 3, key2 => 4}], "$test : table");

-$rows = $dbi->select('table1', ['key1'])->fetch_all_hash;

+$rows = $dbi->select('table1', ['key1'])->fetch_hash_all;

 is_deeply($rows, [{key1 => 1}, {key1 => 3}], "$test : table and columns and where key");

-$rows = $dbi->select('table1', {key1 => 1})->fetch_all_hash;

+$rows = $dbi->select('table1', {key1 => 1})->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2}], "$test : table and columns and where key");

-$rows = $dbi->select('table1', ['key1'], {key1 => 3})->fetch_all_hash;

+$rows = $dbi->select('table1', ['key1'], {key1 => 3})->fetch_hash_all;

 is_deeply($rows, [{key1 => 3}], "$test : table and columns and where key");

-$rows = $dbi->select('table1', "order by key1 desc limit 1")->fetch_all_hash;

+$rows = $dbi->select('table1', "order by key1 desc limit 1")->fetch_hash_all;

 is_deeply($rows, [{key1 => 3, key2 => 4}], "$test : append statement");

 $rows = $dbi->select('table1', {key1 => 2}, sub {

@@ -666,7 +666,7 @@ $rows = $dbi->select('table1', {key1 => 2}, sub {

         }

         return $value;

     });

-})->fetch_all_hash;

+})->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 2}], "$test : query edit call back");

 $dbi->do($CREATE_TABLE->{2});

@@ -674,7 +674,7 @@ $dbi->insert('table2', {key1 => 1, key3 => 5});

 $rows = $dbi->select([qw/table1 table2/],

                      ['table1.key1 as table1_key1', 'table2.key1 as table2_key1', 'key2', 'key3'],

                      {'table1.key2' => 2},

-                     "where table1.key1 = table2.key1")->fetch_all_hash;

+                     "where table1.key1 = table2.key1")->fetch_hash_all;

 is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "$test : join");

 test 'Cache';