@@ -162,7 +162,7 @@ sub column {

     my $table = $option->{alias} || $real_table;

     # Columns

-    unless ($columns) {

+    unless (defined $columns) {

         $columns ||= $self->model($real_table)->columns;

     }

@@ -924,7 +924,7 @@ sub select {

     else { $sql .= $self->_q($tables->[-1] || '') . ' ' }

     $sql =~ s/, $/ /;

     croak "select method table option must be specified " . _subname

-      unless $tables->[-1];

+      unless defined $tables->[-1];

     # Add tables in parameter

     unshift @$tables,

@@ -7,11 +7,8 @@ use DBIx::Custom::Util '_subname';

 # Carp trust relationship

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

-has [qw/dbi table/],

-    bind_type => sub { [] },

-    columns => sub { [] },

-    join => sub { [] },

-    primary_key => sub { [] };

+has [qw/dbi table created_at updated_at bind_type join primary_key/],

+    columns => sub { [] };

 our $AUTOLOAD;

@@ -44,13 +41,22 @@ for my $method (@methods) {

     my $code = sub {

         my $self = shift;

+        

+        unless ($self->{_attribute_cache}{$self}) {

+            $self->$_ for qw/table bind_type primary_key

+              type join created_at updated_at/;

+            $self->{_attribute_cache}{$self} = 1;

+        }

+

         $self->dbi->$method(

             @_ % 2 ? shift : (),

-            table => $self->table,

-            bind_type => $self->bind_type,

-            primary_key => $self->primary_key,

-            type => $self->type,

-            $method =~ /^select/ ? (join => $self->join) : (), 

+            table => $self->{table},

+            exists $self->{type} ? (type => $self->{type}) : (),

+            exists $self->{created_at} && $method eq 'insert' ? (created_at => $self->{created_at}) : (),

+            exists $self->{updated_at} && ($method eq 'insert' || $method eq 'update') ? (updated_at => $self->{updated_at}) : (),

+            exists $self->{bind_type} ? (bind_type=> $self->{bind_type}) : (),

+            exists $self->{primary_key} ? (primary_key => $self->{primary_key}) : (),

+            exists $self->{join} && index($method, 'select') != -1 ? (join => $self->{join}) : (),

             @_

         )

     };

@@ -112,7 +118,7 @@ sub new {

 # DEPRECATED!

 has 'filter';

 has 'name';

-has type => sub { [] };

+has 'type';

 # DEPRECATED!

@@ -578,6 +578,41 @@ like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

 like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

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

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

+$dbi->execute($create_table1_2);

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

+$param = {$key1 => 1};

+$model->insert($param);

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

+is_deeply($param, {$key1 => 1});

+$row   = $result->one;

+is($row->{$key1}, 1);

+like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

+

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

+$dbi->execute($create_table1_2);

+$param = {$key1 => 1};

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

+$model->insert($param);

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

+is_deeply($param, {$key1 => 1});

+$row   = $result->one;

+is($row->{$key1}, 1);

+like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

+

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

+$dbi->execute($create_table1_2);

+$param = {$key1 => 1};

+$model = $dbi->create_model(table => $table1, created_at => $key2, updated_at => $key3);

+$model->insert($param);

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

+is_deeply($param, {$key1 => 1});

+$row   = $result->one;

+is($row->{$key1}, 1);

+like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

+like($row->{$key3}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

+is($row->{$key2}, $row->{$key3});

+

 test 'update_or_insert';

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

 $dbi->execute($create_table1);

@@ -847,6 +882,18 @@ $row   = $result->one;

 is($row->{$key3}, 4);

 like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

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

+$dbi->execute($create_table1_2);

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

+$param = {$key3 => 4};

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

+$model->update($param, where => {$key1 => 1});

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

+is_deeply($param, {$key3 => 4});

+$row   = $result->one;

+is($row->{$key3}, 4);

+like($row->{$key2}, qr/^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$/);

+

 test 'update_all';

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

 $dbi->execute($create_table1_2);

@@ -1,8 +1,8 @@

 package MyModel4::table1;

-use base 'MyModel4';

+use MyModel4 -base;

-sub table { 'table1' }

+has table => 'table1';

 sub list { shift->select }

@@ -1,8 +1,8 @@

 package MyModel4::TABLE1;

-use base 'MyModel4';

+use MyModel4 -base;

-sub table { 'TABLE1' }

+has table => 'TABLE1';

 sub list { shift->select }