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

+0.1624

+  added experimental iterate_all_columns method.

 0.1623

   added experimental auto_filter method

   deprecated default_bind_filter and default_fetch_filter because these are global effect.

@@ -447,6 +447,25 @@ sub insert {

     return $ret_val;

 }

+sub iterate_all_columns {

+    my ($self, $cb) = @_;

+    

+    # Iterate all tables

+    my $sth_tables = $self->dbh->table_info;

+    while (my $table_info = $sth_tables->fetchrow_hashref) {

+        

+        # Table

+        my $table = $table_info->{TABLE_NAME};

+        

+        # Iterate all columns

+        my $sth_columns = $self->dbh->column_info(undef, undef, $table, '%');

+        while (my $column_info = $sth_columns->fetchrow_hashref) {

+            my $column = $column_info->{COLUMN_NAME};

+            $cb->($table, $column, $column_info);

+        }

+    }

+}

+

 sub new {

     my $self = shift->SUPER::new(@_);

@@ -1120,6 +1139,19 @@ B<Example:>

 Create a new L<DBIx::Custom> object.

+=head2 C<(experimental) iterate_all_columns>

+

+    $dbi->iterate_all_columns(

+        sub {

+            my ($table, $column, $column_info) = @_;

+            

+            # do something;

+        }

+    );

+

+Iterate all columns of all tables. Argument is callback.

+You can do anything by callback.

+

 =head2 C<register_filter>

     $dbi->register_filter(%filters);

@@ -61,7 +61,7 @@ sub fetch {

     return unless @row;

     # Filtering

-    my $columns = $self->{sth}->{NAME_lc};

+    my $columns = $self->{sth}->{NAME};

     for (my $i = 0; $i < @$columns; $i++) {

         # Filter name

@@ -120,7 +120,7 @@ sub fetch_hash {

     # Filter

     my $row_hash = {};

-    my $columns = $self->{sth}->{NAME_lc};

+    my $columns = $self->{sth}->{NAME};

     for (my $i = 0; $i < @$columns; $i++) {

         # Filter name

@@ -25,7 +25,8 @@ sub test {

 my $CREATE_TABLE = {

     0 => 'create table table1 (key1 char(255), key2 char(255));',

     1 => 'create table table1 (key1 char(255), key2 char(255), key3 char(255), key4 char(255), key5 char(255));',

-    2 => 'create table table2 (key1 char(255), key3 char(255));'

+    2 => 'create table table2 (key1 char(255), key3 char(255));',

+    3 => 'create table table1 (key1 Date, key2 datetime);'

 };

 my $SELECT_SOURCES = {

@@ -60,7 +61,7 @@ my $select_query;

 my $insert_query;

 my $update_query;

 my $ret_val;

-

+my $infos;

 # Prepare table

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

@@ -721,4 +722,28 @@ $result->filter({'key2' => 'twice'});

 $rows   = $result->fetch_hash_all;

 is_deeply($rows, [{key2 => 4, key3 => 18}], "$test : select : join : omit");

+test 'auto_filter_easy_build';

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

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

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

+

+$infos = [];

+$dbi->iterate_all_columns(sub {

+    my ($table, $column, $cinfo) = @_;

+    

+    if ($table =~ /^table/) {

+         my $info = [$table, $column, $cinfo->{COLUMN_NAME}];

+         push @$infos, $info;

+    }

+});

+$infos = [sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @$infos];

+is_deeply($infos, 

+    [

+        ['table1', 'key1', 'key1'],

+        ['table1', 'key2', 'key2'],

+        ['table2', 'key1', 'key1'],

+        ['table2', 'key3', 'key3']

+    ]

+    , $test

+);