@@ -0,0 +1,5 @@

+### DB2 Install

+

+cd /usr/local/src

+

+curl -L https://www6.software.ibm.com/sdfdl/v2/regs2/db2pmopn/db2_v97/expc/Xa.2/Xb.aA_60_-iVlRRTUNBO90Dq4FHTisv_wdecoCQFeRQbw/Xc.db2exc_974_LNX_x86.tar.gz/Xd./Xf.LPr.D1vk/Xg.6107654/Xi.swg-db2expressc/XY.regsrvs/XZ.2ygJIAbTC5bn3tv2hlm2PnXUcz8/db2exc_974_LNX_x86.tar.gz > db2exc_974_LNX_x86.tar.gz

@@ -0,0 +1,5 @@

+# Create database

+create database dbix_custom;

+

+# Create User

+GRANT ALL PRIVILEGES ON dbix_custom.* TO dbix_custom@"localhost" IDENTIFIED BY 'dbix_custom';

@@ -0,0 +1,55 @@

+# Download

+http://download.oracle.com/otn/linux/oracle10g/xe/10201/oracle-xe-univ-10.2.0.1-1.0.i386.rpm

+

+# Install

+rpm -ivh oracle-xe-univ-10.2.0.1-1.0.i386.rpm

+/etc/init.d/oracle-xe configure

+

+# Note

+Port number is set to 8090

+

+# HTTP access

+http://127.0.0.1:8090/apex

+

+# Create user

+id: dbix_custom

+password: dbix_custom

+

+Add all privirage

+

+# DBD::Oracle

+You must be install install client

+oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm

+oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm

+oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm

+

+rpm -hiv oracle-instantclient11.2-basic-11.2.0.2.0.i386.rpm

+rpm -hiv oracle-instantclient11.2-devel-11.2.0.2.0.i386.rpm

+rpm -hiv oracle-instantclient11.2-sqlplus-11.2.0.2.0.i386.rpm

+

+vi /etc/profile.d/oracle.sh

+export ORACLE_HOME='/usr/lib/oracle/11.2/client'

+export C_INCLUDE_PATH='/usr/include/oracle/11.2/client'

+export LD_LIBRARY_PATH='/usr/lib/oracle/11.2/client/lib'

+

+vi /etc/ld.so.conf.d/oracle.conf

+/usr/lib/oracle/11.2/client/lib

+

+cpan DBD::Oracle

+

+sqlplus dbix_custom/dbix_custom@localhost:1521/XE

+

+mkdir -p $ORACLE_HOME/network/admin/

+vi $ORACLE_HOME/network/admin/tnsnames.ora

+

+XE =

+  (DESCRIPTION =

+    (ADDRESS_LIST =

+      (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))

+    )

+    (CONNECT_DATA =

+      (SID = orcl)

+    )

+  )

+

+

@@ -0,0 +1,35 @@

+### CentOS5

+

+# Install

+yum -y install postgresql-server

+yum -y install postgresql

+yum -y install postgresql-devel

+chkconfig --level 2345 postgresql on

+

+# Start server

+service postgresql start

+

+# Change config file

+vi /var/lib/pgsql/data/pg_hba.conf

+  # "local" is for Unix domain socket connections only

+  local   all         all                               trust

+

+# Create user and database

+su - postgres

+createuser -a -d -U postgres -P dbix_custom

+  # Shall the new role be a superuser? (y/n) -> y

+  # Shall the new role be allowed to create databases? (y/n) -> y

+  # Shall the new role be allowed to create more new roles? (y/n) -> y

+

+createdb dbix_custom -U dbix_custom

+

+# Connect to database

+psql -U dbix_custom dbix_custom

+

+# Install DBD::pg

+cpanm DBD::Pg

+

+### Memo

+

+# Drop user

+dropuser dbix_custom

@@ -0,0 +1,13 @@

+# Site

+http://awoni.net/fc/sql-server-2008-express/

+

+

+# Install

+http://www.microsoft.com/downloads/ja-jp/details.aspx?displaylang=ja&FamilyID=967225eb-207b-4950-91df-eeb5f35a80ee

+

+

+# Note

+You enable SQL Server authentication.

+You create user "dbix_custom", password "dbix_custom"

+You give create_table, insert, update, delete, select authority to user "dbix_custom".

+

@@ -0,0 +1,38 @@

+use strict;

+use warnings;

+

+use FindBin;

+$ENV{DBIX_CUSTOM_TEST_RUN} = 1;

+

+use DBIx::Custom;

+{

+    package DBIx::Custom;

+    no warnings 'redefine';

+

+    my $date_typename = 'Date';

+    my $datetime_typename = 'Datetime';

+    

+    sub date_typename { lc $date_typename }

+    sub datetime_typename { lc $datetime_typename }

+

+    my $date_datatype = 'Date';

+    my $datetime_datatype = 'Datetime';

+    

+    sub date_datatype { lc $date_datatype }

+    sub datetime_datatype { lc $datetime_datatype }

+

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

+    sub quote { '""' }

+    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_typename, key2 $datetime_typename);" }

+    

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

+    

+    sub create_table2 { 'create table table2 (key1 varchar, key3 varchar);' }

+    sub create_table2_2 { "create table table2 (key1 varchar, key2 varchar, key3 varchar)" }

+    sub create_table3 { "create table table3 (key1 varchar, key2 varchar, key3 varchar)" }

+    sub create_table_reserved { 'create table "table" ("select" varchar, "update" varchar)' }

+}

+

+require "$FindBin::Bin/common.t";

@@ -9,6 +9,36 @@ use DBIx::Custom;

     package DBIx::Custom;

     no warnings 'redefine';

+    my $table1 = 'table1';

+    my $table2 = 'table2';

+    my $table2_alias = 'table2_alias';

+    my $table3 = 'table3';

+    my $key1 = 'key1';

+    my $key2 = 'key2';

+    my $key3 = 'key3';

+    my $key4 = 'key4';

+    my $key5 = 'key5';

+    my $key6 = 'key6';

+    my $key7 = 'key7';

+    my $key8 = 'key8';

+    my $key9 = 'key9';

+    my $key10 = 'key10';

+    

+    has table1 => $table1;

+    has table2 => $table2;

+    has table2_alias => $table2_alias;

+    has table3 => $table3;

+    has key1 => $key1;

+    has key2 => $key2;

+    has key3 => $key3;

+    has key4 => $key4;

+    has key5 => $key5;

+    has key6 => $key6;

+    has key7 => $key7;

+    has key8 => $key8;

+    has key9 => $key9;

+    has key10 => $key10;

+    

     my $date_typename = 'Date';

     my $datetime_typename = 'Datetime';

@@ -22,15 +52,15 @@ use DBIx::Custom;

     sub datetime_datatype { lc $datetime_datatype }

     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_typename, key2 $datetime_typename);" }

+    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_typename, $key2 $datetime_typename);" }

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

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

-    sub create_table2 { 'create table table2 (key1 varchar, key3 varchar);' }

-    sub create_table2_2 { "create table table2 (key1 varchar, key2 varchar, key3 varchar)" }

-    sub create_table3 { "create table table3 (key1 varchar, key2 varchar, key3 varchar)" }

+    sub create_table2 { "create table $table2 ($key1 varchar, $key3 varchar);" }

+    sub create_table2_2 { "create table $table2 ($key1 varchar, $key2 varchar, $key3 varchar)" }

+    sub create_table3 { "create table $table3 ($key1 varchar, $key2 varchar, $key3 varchar)" }

     sub create_table_reserved { 'create table "table" ("select" varchar, "update" varchar)' }

 }

@@ -144,6 +144,20 @@ $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};

 sub test { print "# $_[0]\n" }

 # Constant

+my $table1 = $dbi->table1;

+my $table2 = $dbi->table2;

+my $table2_alias = $dbi->table2_alias;

+my $table3 = $dbi->table3;

+my $key1 = $dbi->key1;

+my $key2 = $dbi->key2;

+my $key3 = $dbi->key3;

+my $key4 = $dbi->key4;

+my $key5 = $dbi->key5;

+my $key6 = $dbi->key6;

+my $key7 = $dbi->key7;

+my $key8 = $dbi->key8;

+my $key9 = $dbi->key9;

+my $key10 = $dbi->key10;

 my $create_table1 = $dbi->create_table1;

 my $create_table1_2 = $dbi->create_table1_2;

 my $create_table1_type = $dbi->create_table1_type;

@@ -159,7 +173,6 @@ my $datetime_typename = $dbi->datetime_typename;

 my $date_datatype = $dbi->date_datatype;

 my $datetime_datatype = $dbi->datetime_datatype;

-# Variable

 # Variables

 my $builder;

 my $datas;

@@ -193,24 +206,23 @@ my $binary;

 # Drop table

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

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

 test 'type_rule into';

 $dbi = DBIx::Custom->connect;

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

-$DB::single = 1;

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     into1 => {

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

     }

 );

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

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

-like($result->one->{key1}, qr/^2010-01-01/);

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

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

+like($result->one->{$key1}, qr/^2010-01-01/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     into1 => [

@@ -221,16 +233,16 @@ $dbi->type_rule(

          }

     ]

 );

-$dbi->insert({key1 => '2010-01-02', key2 => '2010-01-01 01:01:02'}, table => 'table1');

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

+$dbi->insert({$key1 => '2010-01-02', $key2 => '2010-01-01 01:01:02'}, table => $table1);

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

 $row = $result->one;

-like($row->{key1}, qr/^2010-01-03/);

-like($row->{key2}, qr/^2010-01-01 01:01:03/);

+like($row->{$key1}, qr/^2010-01-03/);

+like($row->{$key2}, qr/^2010-01-01 01:01:03/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

-$dbi->insert({key1 => '2010-01-03', key2 => '2010-01-01 01:01:03'}, table => 'table1');

+$dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);

 $dbi->type_rule(

     into1 => [

         [$date_typename, $datetime_typename] => sub {

@@ -241,17 +253,17 @@ $dbi->type_rule(

     ]

 );

 $result = $dbi->execute(

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

-    param => {key1 => '2010-01-03', 'table1.key2' => '2010-01-01 01:01:02'}

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

+    param => {$key1 => '2010-01-03', "$table1.$key2" => '2010-01-01 01:01:02'}

 );

 $row = $result->one;

-like($row->{key1}, qr/^2010-01-03/);

-like($row->{key2}, qr/^2010-01-01 01:01:03/);

+like($row->{$key1}, qr/^2010-01-03/);

+like($row->{$key2}, qr/^2010-01-01 01:01:03/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

-$dbi->insert({key1 => '2010-01-03', key2 => '2010-01-01 01:01:03'}, table => 'table1');

+$dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);

 $dbi->type_rule(

     into1 => [

         [$date_typename, $datetime_typename] => sub {

@@ -262,16 +274,16 @@ $dbi->type_rule(

     ]

 );

 $result = $dbi->execute(

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

-    param => {key1 => '2010-01-02', 'table1.key2' => '2010-01-01 01:01:02'},

-    table => 'table1'

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

+    param => {$key1 => '2010-01-02', "$table1.$key2" => '2010-01-01 01:01:02'},

+    table => $table1

 );

 $row = $result->one;

-like($row->{key1}, qr/^2010-01-03/);

-like($row->{key2}, qr/2010-01-01 01:01:03/);

+like($row->{$key1}, qr/^2010-01-03/);

+like($row->{$key2}, qr/2010-01-01 01:01:03/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->register_filter(convert => sub {

     my $value = shift || '';

@@ -286,13 +298,13 @@ $dbi->type_rule(

         $date_typename => 'convert',

     }

 );

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

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

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

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

 like($result->fetch->[0], qr/^2010-03-03/);

 test 'type_rule and filter order';

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     into1 => {

@@ -308,15 +320,15 @@ $dbi->type_rule(

         $date_datatype => sub { my $v = shift || ''; $v =~ s/7/8/; return $v }

     }

 );

-$dbi->insert({key1 => '2010-01-03'}, 

-  table => 'table1', filter => {key1 => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }});

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

-$result->filter(key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });

+$dbi->insert({$key1 => '2010-01-03'}, 

+  table => $table1, filter => {$key1 => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }});

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

+$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });

 like($result->fetch_first->[0], qr/^2010-01-09/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -326,8 +338,8 @@ $dbi->type_rule(

         $date_datatype => sub { my $v = shift || ''; $v =~ s/4/5/; return $v }

     },

 );

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

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

 $result->type_rule(

     from1 => {

         $date_datatype => sub { my $v = shift || ''; $v =~ s/3/6/; return $v }

@@ -336,12 +348,12 @@ $result->type_rule(

         $date_datatype => sub { my $v = shift || ''; $v =~ s/6/8/; return $v }

     }

 );

-$result->filter(key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });

+$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/8/9/; return $v });

 like($result->fetch_first->[0], qr/^2010-01-09/);

 test 'type_rule_off';

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -351,12 +363,12 @@ $dbi->type_rule(

         $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }

     }

 );

-$dbi->insert({key1 => '2010-01-03'}, table => 'table1', type_rule_off => 1);

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);

+$result = $dbi->select(table => $table1, type_rule_off => 1);

 like($result->type_rule_off->fetch->[0], qr/^2010-01-03/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -366,12 +378,12 @@ $dbi->type_rule(

         $date_typename => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }

     }

 );

-$dbi->insert({key1 => '2010-01-03'}, table => 'table1', type_rule_off => 1);

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

-like($result->one->{key1}, qr/^2010-01-04/);

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);

+$result = $dbi->select(table => $table1, type_rule_off => 1);

+like($result->one->{$key1}, qr/^2010-01-04/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -381,12 +393,12 @@ $dbi->type_rule(

         $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }

     }

 );

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

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

-like($result->one->{key1}, qr/^2010-01-05/);

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

+like($result->one->{$key1}, qr/^2010-01-05/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -396,12 +408,12 @@ $dbi->type_rule(

         $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }

     }

 );

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

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

 like($result->fetch->[0], qr/2010-01-05/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->register_filter(ppp => sub { my $v = shift || ''; $v =~ s/3/4/; return $v });

 $dbi->type_rule(

@@ -409,9 +421,9 @@ $dbi->type_rule(

         $date_typename => 'ppp'

     }

 );

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

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

-like($result->one->{key1}, qr/^2010-01-04/);

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

+like($result->one->{$key1}, qr/^2010-01-04/);

 eval{$dbi->type_rule(

     into1 => {

@@ -421,7 +433,7 @@ eval{$dbi->type_rule(

 like($@, qr/not registered/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 eval {

     $dbi->type_rule(

@@ -442,7 +454,7 @@ eval {

 like($@, qr/lower/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -452,13 +464,13 @@ $dbi->type_rule(

         $date_typename => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }

     }

 );

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

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

 $result->type_rule_off;

-like($result->one->{key1}, qr/^2010-01-04/);

+like($result->one->{$key1}, qr/^2010-01-04/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

@@ -466,90 +478,90 @@ $dbi->type_rule(

         $datetime_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }

     },

 );

-$dbi->insert({key1 => '2010-01-03', key2 => '2010-01-01 01:01:03'}, table => 'table1');

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

+$dbi->insert({$key1 => '2010-01-03', $key2 => '2010-01-01 01:01:03'}, table => $table1);

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

 $result->type_rule(

     from1 => {

         $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }

     }

 );

 $row = $result->one;

-like($row->{key1}, qr/^2010-01-05/);

-like($row->{key2}, qr/^2010-01-01 01:01:03/);

+like($row->{$key1}, qr/^2010-01-05/);

+like($row->{$key2}, qr/^2010-01-01 01:01:03/);

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

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

 $result->type_rule(

     from1 => {

         $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }

     }

 );

 $row = $result->one;

-like($row->{key1}, qr/2010-01-05/);

-like($row->{key2}, qr/2010-01-01 01:01:03/);

+like($row->{$key1}, qr/2010-01-05/);

+like($row->{$key2}, qr/2010-01-01 01:01:03/);

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

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

 $result->type_rule(

     from1 => {

         $date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }

     }

 );

 $row = $result->one;

-like($row->{key1}, qr/2010-01-05/);

-like($row->{key2}, qr/2010-01-01 01:01:03/);

+like($row->{$key1}, qr/2010-01-05/);

+like($row->{$key2}, qr/2010-01-01 01:01:03/);

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

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

 $result->type_rule(

     from1 => [$date_datatype => sub { my $v = shift || ''; $v =~ s/3/5/; return $v }]

 );

 $row = $result->one;

-like($row->{key1}, qr/2010-01-05/);

-like($row->{key2}, qr/2010-01-01 01:01:03/);

+like($row->{$key1}, qr/2010-01-05/);

+like($row->{$key2}, qr/2010-01-01 01:01:03/);

 $dbi->register_filter(five => sub { my $v = shift || ''; $v =~ s/3/5/; return $v });

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

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

 $result->type_rule(

     from1 => [$date_datatype => 'five']

 );

 $row = $result->one;

-like($row->{key1}, qr/^2010-01-05/);

-like($row->{key2}, qr/^2010-01-01 01:01:03/);

+like($row->{$key1}, qr/^2010-01-05/);

+like($row->{$key2}, qr/^2010-01-01 01:01:03/);

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

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

 $result->type_rule(

     from1 => [$date_datatype => undef]

 );

 $row = $result->one;

-like($row->{key1}, qr/^2010-01-03/);

-like($row->{key2}, qr/^2010-01-01 01:01:03/);

+like($row->{$key1}, qr/^2010-01-03/);

+like($row->{$key2}, qr/^2010-01-01 01:01:03/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

         $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v },

     },

 );

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

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

-$result->filter(key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });

-like($result->one->{key1}, qr/^2010-01-05/);

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

+$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });

+like($result->one->{$key1}, qr/^2010-01-05/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     from1 => {

         $date_datatype => sub { my $v = shift || ''; $v =~ s/3/4/; return $v }

     },

 );

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

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

-$result->filter(key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1);

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

+$result->filter($key1 => sub { my $v = shift || ''; $v =~ s/4/5/; return $v });

 like($result->fetch->[0], qr/^2010-01-05/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     into1 => {

@@ -565,14 +577,14 @@ $dbi->type_rule(

         $date_datatype => sub { my $v = shift || ''; $v =~ s/(3|6)/7/; return $v }

     }

 );

-$dbi->insert({key1 => '2010-01-03'}, table => 'table1', type_rule_off => 1);

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule_off => 1);

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

 like($result->type_rule_off->fetch_first->[0], qr/^2010-01-03/);

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

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

 like($result->type_rule_on->fetch_first->[0], qr/^2010-01-07/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     into1 => {

@@ -588,14 +600,14 @@ $dbi->type_rule(

         $date_datatype => sub { my $v = shift || ''; $v =~ s/6/7/; return $v }

     }

 );

-$dbi->insert({key1 => '2010-01-03'}, table => 'table1', type_rule1_off => 1);

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule1_off => 1);

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

 like($result->type_rule1_off->fetch_first->[0], qr/^2010-01-05/);

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

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

 like($result->type_rule1_on->fetch_first->[0], qr/^2010-01-07/);

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1_type);

 $dbi->type_rule(

     into1 => {

@@ -611,27 +623,27 @@ $dbi->type_rule(

         $date_datatype => sub { my $v = shift || ''; $v =~ s/(3|6)/7/; return $v }

     }

 );

-$dbi->insert({key1 => '2010-01-03'}, table => 'table1', type_rule2_off => 1);

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

+$dbi->insert({$key1 => '2010-01-03'}, table => $table1, type_rule2_off => 1);

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

 like($result->type_rule2_off->fetch_first->[0], qr/^2010-01-06/);

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

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

 like($result->type_rule2_on->fetch_first->[0], qr/^2010-01-07/);

 # Create table

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1);

-$model = $dbi->create_model(table => 'table1');

-$model->insert({key1 => 1, key2 => 2});

-is_deeply($model->select->all, [{key1 => 1, key2 => 2}]);

+$model = $dbi->create_model(table => $table1);

+$model->insert({$key1 => 1, $key2 => 2});

+is_deeply($model->select->all, [{$key1 => 1, $key2 => 2}]);

 test 'DBIx::Custom::Result test';

-$dbi->delete_all(table => 'table1');

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

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

-$source = "select key1, key2 from table1";

+$dbi->delete_all(table => $table1);

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

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

+$source = "select $key1, $key2 from $table1";

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

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

@@ -646,7 +658,7 @@ $result = $dbi->execute($query);

 while (my $row = $result->fetch_hash) {

     push @rows, {%$row};

 }

-is_deeply(\@rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], "fetch_hash");

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

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

 $rows = $result->fetch_all;

@@ -654,158 +666,158 @@ is_deeply($rows, [[1, 2], [3, 4]], "fetch_all");

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

 $rows = $result->fetch_hash_all;

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

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

 test 'Insert query return value';

-$source = "insert into table1 {insert_param key1 key2}";

+$source = "insert into $table1 {insert_param $key1 $key2}";

 $query = $dbi->execute($source, {}, query => 1);

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

+$ret_val = $dbi->execute($query, param => {$key1 => 1, $key2 => 2});

 ok($ret_val);

 test 'Direct query';

-$dbi->delete_all(table => 'table1');

-$insert_source = "insert into table1 {insert_param key1 key2}";

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

-$result = $dbi->execute('select * from table1;');

+$dbi->delete_all(table => $table1);

+$insert_source = "insert into $table1 {insert_param $key1 $key2}";

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

+$result = $dbi->execute("select * from $table1;");

 $rows = $result->all;

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

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

 test 'Filter basic';

-$dbi->delete_all(table => 'table1');

+$dbi->delete_all(table => $table1);

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

                     three_times => sub { $_[0] * 3});

-$insert_source  = "insert into table1 {insert_param key1 key2};";

+$insert_source  = "insert into $table1 {insert_param $key1 $key2};";

 $insert_query = $dbi->execute($insert_source, {}, query => 1);

-$insert_query->filter({key1 => 'twice'});

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

-$result = $dbi->execute('select * from table1;');

-$rows = $result->filter({key2 => 'three_times'})->all;

-is_deeply($rows, [{key1 => 2, key2 => 6}], "filter fetch_filter");

+$insert_query->filter({$key1 => 'twice'});

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

+$result = $dbi->execute("select * from $table1;");

+$rows = $result->filter({$key2 => 'three_times'})->all;

+is_deeply($rows, [{$key1 => 2, $key2 => 6}], "filter fetch_filter");

 test 'Filter in';

-$dbi->delete_all(table => 'table1');

-$insert_source  = "insert into table1 {insert_param key1 key2};";

+$dbi->delete_all(table => $table1);

+$insert_source  = "insert into $table1 {insert_param $key1 $key2};";

 $insert_query = $dbi->execute($insert_source, {}, query => 1);

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

-$select_source = "select * from table1 where {in table1.key1 2} and {in table1.key2 2}";

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

+$select_source = "select * from $table1 where {in $table1.$key1 2} and {in $table1.$key2 2}";

 $select_query = $dbi->execute($select_source,{}, query => 1);

-$select_query->filter({'table1.key1' => 'twice'});

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

+$select_query->filter({'$table1.$key1' => 'twice'});

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

 $rows = $result->all;

-is_deeply($rows, [{key1 => 2, key2 => 4}], "filter");

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

 test 'DBIx::Custom::SQLTemplate basic tag';

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

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

 $dbi->execute($create_table1_2);

-$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->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});

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

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

 $query = $dbi->execute($source, {}, query => 1);

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

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

 $rows = $result->all;

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

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

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

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

 $query = $dbi->execute($source, {}, query => 1);

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

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

 $rows = $result->all;

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

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

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

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

 $query = $dbi->execute($source, {}, query => 1);

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

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

 $rows = $result->all;

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

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

 test 'DIB::Custom::SQLTemplate in tag';

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

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

 $dbi->execute($create_table1_2);

-$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->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});

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

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

 $query = $dbi->execute($source, {}, query => 1);

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

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

 $rows = $result->all;

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

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

 test 'DBIx::Custom::SQLTemplate insert tag';

-$dbi->delete_all(table => 'table1');

-$insert_source = 'insert into table1 {insert_param key1 key2 key3 key4 key5}';

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

+$dbi->delete_all(table => $table1);

+$insert_source = "insert into $table1 {insert_param $key1 $key2 $key3 $key4 $key5}";

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

-$result = $dbi->execute('select * from table1;');

+$result = $dbi->execute("select * from $table1;");

 $rows = $result->all;

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

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

 test 'DBIx::Custom::SQLTemplate update tag';

-$dbi->delete_all(table => 'table1');

-$insert_source = "insert into table1 {insert_param key1 key2 key3 key4 key5}";

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

-$dbi->execute($insert_source, param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

+$dbi->delete_all(table => $table1);

+$insert_source = "insert into $table1 {insert_param $key1 $key2 $key3 $key4 $key5}";

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

+$dbi->execute($insert_source, param => {$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10});

-$update_source = 'update table1 {update_param key1 key2 key3 key4} where {= key5}';

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

+$update_source = "update $table1 {update_param $key1 $key2 $key3 $key4} where {= $key5}";

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

-$result = $dbi->execute('select * from table1 order by key1;');

+$result = $dbi->execute("select * from $table1 order by $key1;");

 $rows = $result->all;

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

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

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

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

 test 'Named placeholder';

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

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

 $dbi->execute($create_table1_2);

-$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->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});

-$source = "select * from table1 where key1 = :key1 and key2 = :key2";

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

+$source = "select * from $table1 where $key1 = :$key1 and $key2 = :$key2";

+$result = $dbi->execute($source, param => {$key1 => 1, $key2 => 2});

 $rows = $result->all;

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

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

-$source = "select * from table1 where key1 = \n:key1\n and key2 = :key2";

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

+$source = "select * from $table1 where $key1 = \n:$key1\n and $key2 = :$key2";

+$result = $dbi->execute($source, param => {$key1 => 1, $key2 => 2});

 $rows = $result->all;

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

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

-$source = "select * from table1 where key1 = :key1 or key1 = :key1";

-$result = $dbi->execute($source, param => {key1 => [1, 2]});

+$source = "select * from $table1 where $key1 = :$key1 or $key1 = :$key1";

+$result = $dbi->execute($source, param => {$key1 => [1, 2]});

 $rows = $result->all;

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

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

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

+$source = "select * from $table1 where $key1 = :$table1.$key1 and $key2 = :$table1.$key2";

 $result = $dbi->execute(

     $source,

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

-    filter => {'table1.key2' => sub { $_[0] * 2 }}

+    param => {"$table1.$key1" => 1, "$table1.$key2" => 1},

+    filter => {'$table1.$key2' => sub { $_[0] * 2 }}

 );

 $rows = $result->all;

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

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

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

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

 $dbi->execute($create_table1);

-$dbi->insert(table => 'table1', param => {key1 => '2011-10-14 12:19:18', key2 => 2});

-$source = "select * from table1 where key1 = '2011-10-14 12:19:18' and key2 = :key2";

+$dbi->insert(table => $table1, param => {$key1 => '2011-10-14 12:19:18', $key2 => 2});

+$source = "select * from $table1 where $key1 = '2011-10-14 12:19:18' and $key2 = :$key2";

 $result = $dbi->execute(

     $source,

-    param => {'key2' => 2},

+    param => {$key2 => 2},

 );

 $rows = $result->all;

-like($rows->[0]->{key1}, qr/2011-10-14 12:19:18/);

-is($rows->[0]->{key2}, 2);

+like($rows->[0]->{$key1}, qr/2011-10-14 12:19:18/);

+is($rows->[0]->{$key2}, 2);

-$dbi->delete_all(table => 'table1');

-$dbi->insert(table => 'table1', param => {key1 => 'a:b c:d', key2 => 2});

-$source = "select * from table1 where key1 = 'a\\:b c\\:d' and key2 = :key2";

+$dbi->delete_all(table => $table1);

+$dbi->insert(table => $table1, param => {$key1 => 'a:b c:d', $key2 => 2});

+$source = "select * from $table1 where $key1 = 'a\\:b c\\:d' and $key2 = :$key2";

 $result = $dbi->execute(

     $source,

-    param => {'key2' => 2},

+    param => {$key2 => 2},

 );

 $rows = $result->all;

-is_deeply($rows, [{key1 => 'a:b c:d', key2 => 2}]);

+is_deeply($rows, [{$key1 => 'a:b c:d', $key2 => 2}]);

 test 'Error case';

 eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};

@@ -815,33 +827,33 @@ eval{$dbi->execute("{p }", {}, query => 1)};

 ok($@, "create_query invalid SQL template");

 test 'insert';

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

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

 $dbi->execute($create_table1);

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

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

-$result = $dbi->execute('select * from table1;');

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

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

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

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

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

+$dbi->execute('delete from $table1');

 $dbi->register_filter(

     twice       => sub { $_[0] * 2 },

     three_times => sub { $_[0] * 3 }

 );

 $dbi->default_bind_filter('twice');

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

-$result = $dbi->execute('select * from table1;');

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

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

-is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");

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

 $dbi->default_bind_filter(undef);

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

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

 $dbi->execute($create_table1);

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

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

-is_deeply($rows, [{key1 => 1, key2 => 2}], 'insert append');

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

+$rows = $dbi->select(table => $table1)->all;

+is_deeply($rows, [{$key1 => 1, $key2 => 2}], 'insert append');

-eval{$dbi->insert(table => 'table1', noexist => 1)};

+eval{$dbi->insert(table => $table1, noexist => 1)};

 like($@, qr/noexist/, "invalid");

 eval{$dbi->insert(table => 'table', param => {';' => 1})};

@@ -855,112 +867,112 @@ $result = $dbi->execute("select * from ${q}table$p");

 $rows   = $result->all;

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

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

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

 $dbi->execute($create_table1);

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

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

-$result = $dbi->execute('select * from table1;');

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

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

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

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

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

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

 $dbi->execute($create_table1);

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

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

-$result = $dbi->execute('select * from table1;');

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

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

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

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

 test 'update';

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

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

 $dbi->execute($create_table1_2);

-$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(table => 'table1', param => {key2 => 11}, where => {key1 => 1});

-$result = $dbi->execute('select * from table1 order by key1;');

+$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(table => $table1, param => {$key2 => 11}, where => {$key1 => 1});

+$result = $dbi->execute("select * from $table1 order by $key1;");

 $rows   = $result->all;

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

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

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

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

                   "basic");

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

-$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(table => 'table1', param => {key2 => 12}, where => {key2 => 2, key3 => 3});

-$result = $dbi->execute('select * from table1 order by key1;');

+$dbi->execute("delete from $table1");

+$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(table => $table1, param => {$key2 => 12}, where => {$key2 => 2, $key3 => 3});

+$result = $dbi->execute("select * from $table1 order by $key1;");

 $rows   = $result->all;

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

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

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

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

                   "update key same as search key");

-$dbi->update(table => 'table1', param => {key2 => [12]}, where => {key2 => 2, key3 => 3});

-$result = $dbi->execute('select * from table1 order by key1;');

+$dbi->update(table => $table1, param => {$key2 => [12]}, where => {$key2 => 2, $key3 => 3});

+$result = $dbi->execute("select * from $table1 order by $key1;");

 $rows   = $result->all;

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

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

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

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

                   "update key same as search key : param is array ref");

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

-$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->execute("delete from $table1");

+$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->register_filter(twice => sub { $_[0] * 2 });

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

-              filter => {key2 => sub { $_[0] * 2 }});

-$result = $dbi->execute('select * from table1 order by key1;');

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

+              filter => {$key2 => sub { $_[0] * 2 }});

+$result = $dbi->execute("select * from $table1 order by $key1;");

 $rows   = $result->all;

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

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

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

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

                   "filter");

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

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

-eval{$dbi->update(table => 'table1', where => {key1 => 1}, noexist => 1)};

+eval{$dbi->update(table => $table1, where => {$key1 => 1}, noexist => 1)};

 like($@, qr/noexist/, "invalid");

-eval{$dbi->update(table => 'table1')};

+eval{$dbi->update(table => $table1)};

 like($@, qr/where/, "not contain where");

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

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

 $dbi->execute($create_table1);

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

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

 $where = $dbi->where;

-$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);

-$where->param({key1 => 1, key2 => 2});

-$dbi->update(table => 'table1', param => {key1 => 3}, where => $where);

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

-is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');

+$where->clause(['and', "$key1 = :$key1", "$key2 = :$key2"]);

+$where->param({$key1 => 1, $key2 => 2});

+$dbi->update(table => $table1, param => {$key1 => 3}, where => $where);

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

+is_deeply($result->all, [{$key1 => 3, $key2 => 2}], 'update() where');

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

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

 $dbi->execute($create_table1);

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

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

 $dbi->update(

-    table => 'table1',

-    param => {key1 => 3},

+    table => $table1,

+    param => {$key1 => 3},

     where => [

-        ['and', 'key1 = :key1', 'key2 = :key2'],

-        {key1 => 1, key2 => 2}

+        ['and', "$key1 = :$key1", "$key2 = :$key2"],

+        {$key1 => 1, $key2 => 2}

     ]

 );

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

-is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');

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

+is_deeply($result->all, [{$key1 => 3, $key2 => 2}], 'update() where');

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

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

 $dbi->execute($create_table1);

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

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

 $where = $dbi->where;

-$where->clause(['and', 'key2 = :key2']);

-$where->param({key2 => 2});

-$dbi->update(table => 'table1', param => {key1 => 3}, where => $where);

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

-is_deeply($result->all, [{key1 => 3, key2 => 2}], 'update() where');

+$where->clause(['and', "$key2 = :$key2"]);

+$where->param({$key2 => 2});

+$dbi->update(table => $table1, param => {$key1 => 3}, where => $where);

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

+is_deeply($result->all, [{$key1 => 3, $key2 => 2}], 'update() where');

-eval{$dbi->update(table => 'table1', param => {';' => 1})};

+eval{$dbi->update(table => $table1, param => {';' => 1})};

 like($@, qr/safety/);

-eval{$dbi->update(table => 'table1', param => {'key1' => 1}, where => {';' => 1})};

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

 like($@, qr/safety/);

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

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

 eval { $dbi->execute("drop table ${q}table$p") };

 $dbi->execute($create_table_reserved);

 $dbi->apply_filter('table', select => {out => sub { $_[0] * 2}});

@@ -984,114 +996,114 @@ $result = $dbi->execute("select * from ${q}table$p");

 $rows   = $result->all;

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

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

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

 $dbi->execute($create_table1_2);

-$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 * from table1 order by key1;');

+$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 * from $table1 order by $key1;");

 $rows   = $result->all;

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

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

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

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

                   "basic");

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

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

 $dbi->execute($create_table1_2);

-$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(table => 'table1', param => {key2 => \"'11'"}, where => {key1 => 1});

-$result = $dbi->execute('select * from table1 order by key1;');

+$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(table => $table1, param => {$key2 => \"'11'"}, where => {$key1 => 1});

+$result = $dbi->execute("select * from $table1 order by $key1;");

 $rows   = $result->all;

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

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

+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';

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

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

 $dbi->execute($create_table1_2);

-$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->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->register_filter(twice => sub { $_[0] * 2 });

-$dbi->update_all(table => 'table1', param => {key2 => 10}, filter => {key2 => 'twice'});

-$result = $dbi->execute('select * from table1;');

+$dbi->update_all(table => $table1, param => {$key2 => 10}, filter => {$key2 => 'twice'});

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

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

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

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

                   "filter");

 test 'delete';

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

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

 $dbi->execute($create_table1);

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

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

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

-$result = $dbi->execute('select * from table1;');

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

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

+$dbi->delete(table => $table1, where => {$key1 => 1});

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

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

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

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

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

+$dbi->execute("delete from $table1;");

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

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

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

-$dbi->delete(table => 'table1', where => {key2 => 1}, filter => {key2 => 'twice'});

-$result = $dbi->execute('select * from table1;');

+$dbi->delete(table => $table1, where => {$key2 => 1}, filter => {$key2 => 'twice'});

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

-is_deeply($rows, [{key1 => 3, key2 => 4}], "filter");

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

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

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

-$dbi->delete_all(table => 'table1');

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

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

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

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

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

+$dbi->delete_all(table => $table1);

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

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

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

+$rows = $dbi->select(table => $table1)->all;

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

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

+eval{$dbi->delete(table => $table1, where => {$key1 => 1}, noexist => 1)};

 like($@, qr/noexist/, "invalid");

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

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

 $dbi->execute($create_table1);

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

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

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

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

 $where = $dbi->where;

-$where->clause(['and', 'key1 = :key1', 'key2 = :key2']);

-$where->param({ke1 => 1, key2 => 2});

-$dbi->delete(table => 'table1', where => $where);

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

-is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');

+$where->clause(['and', "$key1 = :$key1", "$key2 = :$key2"]);

+$where->param({ke1 => 1, $key2 => 2});

+$dbi->delete(table => $table1, where => $where);

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

+is_deeply($result->all, [{$key1 => 3, $key2 => 4}], 'delete() where');

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

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

 $dbi->execute($create_table1);

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

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

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

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

 $dbi->delete(

-    table => 'table1',

+    table => $table1,

     where => [

-        ['and', 'key1 = :key1', 'key2 = :key2'],

-        {ke1 => 1, key2 => 2}

+        ['and', "$key1 = :$key1", "$key2 = :$key2"],

+        {ke1 => 1, $key2 => 2}

     ]

 );

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

-is_deeply($result->all, [{key1 => 3, key2 => 4}], 'delete() where');

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

+is_deeply($result->all, [{$key1 => 3, $key2 => 4}], 'delete() where');

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

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

 $dbi->execute($create_table1);

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

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

-$result = $dbi->execute('select * from table1;');

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

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

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

 test 'delete error';

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

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

 $dbi->execute($create_table1);

-eval{$dbi->delete(table => 'table1')};

+eval{$dbi->delete(table => $table1)};

 like($@, qr/"where" must be specified/,

          "where key-value pairs not specified");

-eval{$dbi->delete(table => 'table1', where => {';' => 1})};

+eval{$dbi->delete(table => $table1, where => {';' => 1})};

 like($@, qr/safety/);

 $dbi = undef;

@@ -1106,58 +1118,58 @@ $rows   = $result->all;

 is_deeply($rows, [], "reserved word");

 test 'delete_all';

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

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

 $dbi->execute($create_table1);

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

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

-$dbi->delete_all(table => 'table1');

-$result = $dbi->execute('select * from table1;');

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

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

+$dbi->delete_all(table => $table1);

+$result = $dbi->execute("select * from $table1;");

 $rows   = $result->all;

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

 test 'select';

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

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

 $dbi->execute($create_table1);

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

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

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

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

-                  {key1 => 3, key2 => 4}], "table");

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

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

+$rows = $dbi->select(table => $table1)->all;

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

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

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

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

+$rows = $dbi->select(table => $table1, column => [$key1])->all;

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

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

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

+$rows = $dbi->select(table => $table1, where => {$key1 => 1})->all;

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

-$rows = $dbi->select(table => 'table1', column => ['key1'], where => {key1 => 3})->all;

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

+$rows = $dbi->select(table => $table1, column => [$key1], where => {$key1 => 3})->all;

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

 $dbi->register_filter(decrement => sub { $_[0] - 1 });

-$rows = $dbi->select(table => 'table1', where => {key1 => 2}, filter => {key1 => 'decrement'})

+$rows = $dbi->select(table => $table1, where => {$key1 => 2}, filter => {$key1 => 'decrement'})

             ->all;

-is_deeply($rows, [{key1 => 1, key2 => 2}], "filter");

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

-eval { $dbi->execute("drop table table2") };

+eval { $dbi->execute("drop table $table2") };

 $dbi->execute($create_table2);

-$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 5});

+$dbi->insert(table => $table2, param => {$key1 => 1, $key3 => 5});

 $rows = $dbi->select(

-    table => [qw/table1 table2/],

-    column => 'table1.key1 as table1_key1, table2.key1 as table2_key1, key2, key3',

-    where   => {'table1.key2' => 2},

-    relation  => {'table1.key1' => 'table2.key1'}

+    table => [$table1, $table2],

+    column => "$table1.$key1 as ${table1}_$key1, $table2.$key1 as ${table2}_$key1, $key2, $key3",

+    where   => {"$table1.$key2" => 2},

+    relation  => {"$table1.$key1" => "$table2.$key1"}

 )->all;

-is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "relation : exists where");

+is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}], "relation : exists where");

 $rows = $dbi->select(

-    table => [qw/table1 table2/],

-    column => ['table1.key1 as table1_key1', 'table2.key1 as table2_key1', 'key2', 'key3'],

-    relation  => {'table1.key1' => 'table2.key1'}

+    table => [$table1, $table2],

+    column => ["$table1.$key1 as ${table1}_$key1', '${table2}.$key1 as ${table2}_$key1", $key2, $key3],

+    relation  => {"$table1.$key1" => "$table2.$key1"}

 )->all;

-is_deeply($rows, [{table1_key1 => 1, table2_key1 => 1, key2 => 2, key3 => 5}], "relation : no exists where");

+is_deeply($rows, [{"${table1}_$key1" => 1, "${table2}_$key1" => 1, $key2 => 2, $key3 => 5}], "relation : no exists where");

-eval{$dbi->select(table => 'table1', noexist => 1)};

+eval{$dbi->select(table => $table1, noexist => 1)};

 like($@, qr/noexist/, "invalid");

 $dbi = DBIx::Custom->connect;

@@ -1170,18 +1182,18 @@ $rows   = $result->all;

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

 test 'fetch filter';

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

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

 $dbi->register_filter(

     twice       => sub { $_[0] * 2 },

     three_times => sub { $_[0] * 3 }

 );

 $dbi->default_fetch_filter('twice');

 $dbi->execute($create_table1);

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

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

-$result->filter({key1 => 'three_times'});

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

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

+$result->filter({$key1 => 'three_times'});

 $row = $result->one;

-is_deeply($row, {key1 => 3, key2 => 4}, "default_fetch_filter and filter");

+is_deeply($row, {$key1 => 3, $key2 => 4}, "default_fetch_filter and filter");

 test 'filters';

 $dbi = DBIx::Custom->new;

@@ -1194,97 +1206,97 @@ is($dbi->filters->{encode_utf8}->('あ'),

 test 'transaction1';

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1);

 $dbi->begin_work;

 $dbi->dbh->{AutoCommit} = 0;

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

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

 $dbi->rollback;

 $dbi->dbh->{AutoCommit} = 1;

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

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

 ok(! $result->fetch_first, "rollback");

 $dbi = DBIx::Custom->connect;

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

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

 $dbi->execute($create_table1);

 $dbi->begin_work;

 $dbi->dbh->{AutoCommit} = 0;

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

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

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

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

 $dbi->commit;

 $dbi->dbh->{AutoCommit} = 1;

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

-is_deeply(scalar $result->all, [{key1 => 1, key2 => 2}, {key1 => 2, key2 => 3}],

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

+is_deeply(scalar $result->all, [{$key1 => 1, $key2 => 2}, {$key1 => 2, $key2 => 3}],

           "commit");