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

 0.1638

-  added experimental base_table attribute and  removed experimental table_class attribute

+  table object call dbi object method if not found method.

+  added experimental base_table attribute and removed experimental table_class attribute

   renamed helper to method.

   added experimental DBIx::Custom::Result::stash()

   renamed experimental DBIx::Custom::Table helper to method

@@ -14,15 +14,16 @@ use DBIx::Custom::Result;

 use DBIx::Custom::Query;

 use DBIx::Custom::QueryBuilder;

 use DBIx::Custom::Where;

+use DBIx::Custom::Table;

 use Encode qw/encode_utf8 decode_utf8/;

 __PACKAGE__->attr(

     [qw/data_source dbh password user/],

     cache => 1,

-    dbi_option => sub { {} },

+    dbi_option    => sub { {} },

     query_builder => sub { DBIx::Custom::QueryBuilder->new },

     result_class  => 'DBIx::Custom::Result',

-    table_class   => 'DBIx::Custom::Table'

+    base_table    => sub { DBIx::Custom::Table->new(dbi => shift) }

 );

 __PACKAGE__->attr(

@@ -569,19 +570,30 @@ sub table {

     my $self = shift;

     my $name = shift;

-    # Table class

-    my $table_class = $self->table_class;

-    croak qq{Invalid table class name "$table_class"}

-      unless $table_class =~ /^[\w:]+$/;

-    unless ($table_class->can('isa')) {

-        eval "require $table_class";

-        croak $@ if $@;

-    }

     # Create table

     $self->{_tables} ||= {};

-    $self->{_tables}->{$name}

-        = $table_class->new(name => $name, dbi => $self)

-      unless defined $self->{_tables}->{$name};

+    unless (defined $self->{_tables}->{$name}) {

+        # Base table

+        my $base_table = $self->base_table;

+        

+        # Base methods

+        my $bmethods = ref $base_table->{_methods} eq 'HASH'

+                     ? $base_table->{_methods}

+                     : {};

+        

+        # Copy Methods

+        my $methods = {};

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

+        

+        # Create table

+        my $table = $base_table->new(

+            dbi      => $self,

+            name     => $name,

+            base     => $base_table,

+            _methods => $methods

+        );

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

+    }

     return $self->{_tables}{$name};

 }

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

 # Carp trust relationship

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

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

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

 our $AUTOLOAD;

@@ -22,11 +22,14 @@ sub AUTOLOAD {

     # Method

     $self->{_methods} ||= {};

-    croak qq/Can't locate object method "$mname" via "$package"/

-      unless my $method = $self->{_methods}->{$mname};

-

-    # Execute

-    return $self->$method(@_);

+    

+    # Method

+    if (my $method = $self->{_methods}->{$mname}) {

+        return $self->$method(@_)

+    }

+    

+    # DBI method

+    return $self->dbi->$mname(@_);

 }

 sub method {

@@ -16,7 +16,7 @@ BEGIN {

 }

 # Function for test name

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

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

 # Constant varialbes for test

 my $CREATE_TABLE = {

@@ -1019,13 +1019,7 @@ is_deeply($row, {key1 => 2, key2 => 2});

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

              filter => {key1 => 'no'}) };

 like($@, qr//);

-$dbi->table_class('!!!!');

-eval {$dbi->table};

-like($@, qr/Invalid table/);

-$dbi->table_class('NOTEXIST');

-eval {$dbi->table};

-ok($@);

 $dbi->register_filter(one => sub { });

 $dbi->default_fetch_filter('one');

 ok($dbi->default_fetch_filter);

@@ -1072,3 +1066,26 @@ $result = DBIx::Custom::Result->new;

 is_deeply($result->stash, {}, 'default');

 $result->stash->{foo} = 1;

 is($result->stash->{foo}, 1, 'get and set');

+

+test 'base_table';

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

+$dbi->base_table->method(

+    one => sub { 1 }

+);

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

+$table->method(

+    two => sub { 2 }

+);

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

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

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

 # Function for test name

 my $test;

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

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

 # Variables for test

 my $dbi;

@@ -5,7 +5,7 @@ use warnings;

 use DBIx::Custom::Query;

 # Function for test name

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

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

 # Variables for test

 my $query;

@@ -6,7 +6,7 @@ use Test::More 'no_plan';

 use DBIx::Custom::QueryBuilder;

 # Function for test name

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

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

 # Variable for test

 my $datas;

@@ -14,7 +14,7 @@ BEGIN {

 }

 # Function for test name

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

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

 # Constant varialbes for test

 my $CREATE_TABLE = {