@@ -2,6 +2,8 @@

     - you can set any string as separator

     - fixed memory leak and connection increasing bug, and query_buider method return new object.

     - added EXPERIMENTAL exclude_table attribute

+    - added EXPERIMENTAL show_typename method

+    - added EXPERIMENTAL show_datatype method

 0.1711

     - renamed EXPERIMENTAL available_type_name to available_typename

     - renamed EXPERIMENTAL available_data_type to available_datatype

@@ -73,16 +73,6 @@ sub available_datatype {

     return $data_types;

 }

-sub show_datatype {

-    my ($self, $table) = @_;

-    

-    

-}

-

-sub show_typename {

-    

-}

-

 sub available_typename {

     my $self = shift;

@@ -320,9 +310,6 @@ sub each_column {

     }

 }

-

-

-

 sub each_table {

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

@@ -949,6 +936,39 @@ sub setup_model {

     return $self;

 }

+sub show_datatype {

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

+    croak "Table name must be specified" unless defined $table;

+    print "$table\n";

+    

+    my $result = $self->select(table => $table, where => "'0' <> '0'");

+    my $sth = $result->sth;

+

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

+    my $data_types = $sth->{TYPE};

+    

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

+        my $column = $columns->[$i];

+        my $data_type = $data_types->[$i];

+        print "$column: $data_type\n";

+    }

+}

+

+sub show_typename {

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

+    croak "Table name must be specified" unless defined $t;

+    print "$t\n";

+    

+    $self->each_column(sub {

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

+        return unless $table eq $t;

+        my $typename = $infos->{TYPE_NAME};

+        print "$column: $typename\n";

+    });

+    

+    return $self;

+}

+

 sub type_rule {

     my $self = shift;

@@ -3124,6 +3144,30 @@ C<columns> of model object is automatically set, parsing database information.

 If environment variable C<DBIX_CUSTOM_DEBUG> is set to true,

 executed SQL and bind values are printed to STDERR.

+=head2 C<show_datatype EXPERIMENTAL>

+

+    $dbi->show_datatype($table);

+

+Show data type of the columns of specified table.

+

+    book

+    title: 5

+    issue_date: 91

+

+This data type is used in C<type_rule>'s C<from1> and C<from2>.

+

+=head2 C<show_typename EXPERIMENTAL>

+

+    $dbi->show_typename($table);

+

+Show type name of the columns of specified table.

+

+    book

+    title: varchar

+    issue_date: date

+

+This type name is used in C<type_rule>'s C<into1> and C<into2>.

+

 =head2 C<DBIX_CUSTOM_DEBUG_ENCODING>

 DEBUG output encoding. Default to UTF-8.

@@ -3150,6 +3194,7 @@ L<DBIx::Custom>

     default_bind_filter # will be removed at 2017/1/1

     default_fetch_filter # will be removed at 2017/1/1

     insert_param_tag # will be removed at 2017/1/1

+    register_tag # will be removed at 2017/1/1

     register_tag_processor # will be removed at 2017/1/1

     update_param_tag # will be removed at 2017/1/1

@@ -30,7 +30,7 @@ use DBIx::Custom;

     has dsn => "dbi:Pg:dbname=dbix_custom";

     has user  => 'dbix_custom';

     has password => 'dbix_custom';

-    has system_table => sub {

+    has exclude_table => sub {

         return qr/^(

             pg_|column_|role_|view_|sql_

@@ -45,6 +45,7 @@ use DBIx::Custom;

             |domains

             |element_types

             |enabled_roles

+            |information_schema

             |information_schema_catalog_name

             |key_column_usage

             |parameters

@@ -195,23 +195,11 @@ my $binary;

 # Drop table

 eval { $dbi->execute('drop table table1') };

-

-

-

-

-

-

-

-

-

-

-

-

-

 test 'type_rule into';

 $dbi = DBIx::Custom->connect;

 eval { $dbi->execute('drop table table1') };

 $dbi->execute($create_table1_type);

+$DB::single = 1;

 $dbi->type_rule(

     into1 => {

         $date_typename => sub { '2010-' . $_[0] }

@@ -179,78 +179,7 @@ my $binary;

 $dbi = DBIx::Custom->connect;

 ### a little complex test

-test 'type_rule into';

-$dbi = DBIx::Custom->connect;

-$dbi->execute("create table table1 (key1 Date, key2 datetime)");

-$dbi->type_rule(

-    into1 => {

-        date => sub { uc $_[0] }

-    }

-);

-$dbi->insert({key1 => 'a'}, table => 'table1');

-$result = $dbi->select(table => 'table1');

-is($result->one->{key1}, 'A');

-$dbi = DBIx::Custom->connect;

-$dbi->execute("create table table1 (key1 date, key2 datetime)");

-$dbi->type_rule(

-    into1 => [

-         [qw/date datetime/] => sub { uc $_[0] }

-    ]

-);

-$dbi->insert({key1 => 'a', key2 => 'b'}, table => 'table1');

-$result = $dbi->select(table => 'table1');

-$row = $result->one;

-is($row->{key1}, 'A');

-is($row->{key2}, 'B');

-

-$dbi = DBIx::Custom->connect;

-$dbi->execute("create table table1 (key1 Date, key2 datetime)");

-$dbi->insert({key1 => 'a', key2 => 'B'}, table => 'table1');

-$dbi->type_rule(

-    into1 => [

-        [qw/date datetime/] => sub { uc $_[0] }

-    ]

-);

-$result = $dbi->execute(

-    "select * from table1 where key1 = :key1 and key2 = :table1.key2;",

-    param => {key1 => 'a', 'table1.key2' => 'b'}

-);

-$row = $result->one;

-is($row->{key1}, 'a');

-is($row->{key2}, 'B');

-

-$dbi = DBIx::Custom->connect;

-$dbi->execute("create table table1 (key1 Date, key2 datetime)");

-$dbi->insert({key1 => 'A', key2 => 'B'}, table => 'table1');

-$dbi->type_rule(

-    into1 => [

-        [qw/date datetime/] => sub { uc $_[0] }

-    ]

-);

-$result = $dbi->execute(

-    "select * from table1 where key1 = :key1 and key2 = :table1.key2;",

-    param => {key1 => 'a', 'table1.key2' => 'b'},

-    table => 'table1'

-);

-$row = $result->one;

-is($row->{key1}, 'A');

-is($row->{key2}, 'B');

-

-$dbi = DBIx::Custom->connect;

-$dbi->execute("create table table1 (key1 date, key2 datetime)");

-$dbi->register_filter(twice => sub { $_[0] * 2 });

-$dbi->type_rule(

-    from1 => {

-        date => 'twice',

-    },

-    into1 => {

-        date => 'twice',

-    }

-);

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

-$result = $dbi->select(table => 'table1');

-is($result->fetch->[0], 8);

 test 'type_rule and filter order';

 $dbi = DBIx::Custom->connect;