@@ -9,6 +9,10 @@ $ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'mysql private test';

 use DBIx::Custom;

 {

     package DBIx::Custom;

+

+    my $date = 'Date';

+    my $time = 'Time';

+    my $datetime = 'Datetime';

     no warnings 'redefine';

     has dsn => "dbi:mysql:database=dbix_custom";

@@ -10,6 +10,11 @@ use DBIx::Custom;

 {

     package DBIx::Custom;

     no warnings 'redefine';

+

+    my $date = 'Date';

+    my $time = 'Time';

+    my $datetime = 'Timestamp';

+

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

     has user  => 'dbix_custom';

     has password => 'dbix_custom';

@@ -8,6 +8,11 @@ use DBIx::Custom;

 {

     package DBIx::Custom;

     no warnings 'redefine';

+

+    my $date = 'Date';

+    my $time = 'Time';

+    my $datetime = 'Datetime';

+

     has dsn => 'dbi:SQLite:dbname=:memory:';

     sub quote { '""' }

     sub create_table1 { 'create table table1 (key1 varchar, key2 varchar);' }

@@ -8,10 +8,15 @@ use DBIx::Custom;

 {

     package DBIx::Custom;

     no warnings 'redefine';

+    

+    my $date = 'Date';

+    my $time = 'Time';

+    my $datetime = 'Datetime';

+    

     has dsn => 'dbi:SQLite:dbname=:memory:';

     sub create_table1 { 'create table table1 (key1 varchar, key2 varchar);' }

     sub create_table1_2 {'create table table1 (key1 varchar, key2 varchar, key3 varchar, key4 varchar, key5 varchar);' }

-    sub create_table1_type { 'create table table1 (key1 Date, key2 datetime);' }

+    sub create_table1_type { "create table table1 (key1 $date, key2 $time);" }

     sub create_table1_highperformance { "create table table1 (ab varchar, bc varchar, ik varchar, hi varchar, ui varchar, pq varchar, dc varchar);" }

@@ -3346,6 +3346,19 @@ $result = $dbi->select(

 );

 is_deeply($result->all, [{'table2.key3' => 4}]);

+test 'table_alias';

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

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

+$dbi->execute($create_table1_type);

+$dbi->type_rule(

+    into1 => {

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

+    }

+);

+$dbi->execute("insert into table1 (key1) values (:table2.key1)", {'table2.key1' => '01-01'},

+  table_alias => {table2 => 'table1'});

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

+is($result->one->{key1}, '2010-01-01');