@@ -1,3 +1,6 @@

+0.1640

+  removed experimental DBIx::Custom::Table base() method

+  table created by tabled method can call base_$method correponding to base_table's one

 0.1641

   select() where can't receive array reference to prevend SQL injection easily(not backward compatible. sorry. use where() instead)

   added experimental safety_column_name attribute

@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1641';

+our $VERSION = '0.1642';

 use 5.008001;

 use strict;

@@ -590,14 +590,15 @@ sub table {

         # Copy Methods

         my $methods = {};

         $methods->{$_} = $bmethods->{$_} for keys %$bmethods;

+        $methods->{"base_$_"} = $bmethods->{$_} for keys %$bmethods;

         # Create table

         my $table = $base_table->new(

             dbi      => $self,

             name     => $name,

-            base     => $base_table,

-            _methods => $methods

         );

+        $table->method($methods);

+        

         $self->{_tables}->{$name} = $table;

     }

@@ -10,7 +10,7 @@ use Carp 'croak';

 # Carp trust relationship

 push @DBIx::Custom::CARP_NOT, __PACKAGE__;

-__PACKAGE__->attr(['dbi', 'name', 'base']);

+__PACKAGE__->attr(['dbi', 'name']);

 our $AUTOLOAD;

@@ -1245,30 +1245,22 @@ is($result->stash->{foo}, 1, 'get and set');

 test 'base_table';

 $dbi = DBIx::Custom->new;

 $dbi->base_table->method(

-    one => sub { 1 }

+    twice => sub {

+        my $self = shift;

+        

+        return $_[0] * 2;

+    }

 );

 $table = $dbi->table('book');

 $table->method(

-    two => sub { 2 }

+    three_times => sub {

+        my $self = shift;

+        return  $_[0] * 3;

+    }

 );

-is($dbi->base_table->one, 1, 'method');

-is($table->one, 1, 'inherit method');

-is($table->two, 2, 'child table method');

-eval {$dbi->base_table->two};

+is($table->base_twice(1), 2, 'method');

+is($table->twice(1), 2, 'inherit method');

+is($table->three_times(1), 3, 'child table method');

+eval {$dbi->base_two};

 ok($@);

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

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

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

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

-is_deeply($result->fetch_hash_all, [{key1 => 1, key2 => 2}], 'dbi method from base_table');

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

-is_deeply($result->fetch_hash_all, [{key1 => 1, key2 => 2}], 'dbi method from table');

-

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

-$dbi->method(

-    one => sub { 1 }

-);

-is($dbi->base_table->one, 1, 'use dbi method');

-is($dbi->table('table1')->one, 1, 'use dbi method');

-