@@ -1765,7 +1765,6 @@ sub select_at {

     # Options

     my $primary_keys = delete $opt{primary_key};

-    $primary_keys = [$primary_keys] unless ref $primary_keys;

     my $where = delete $opt{where};

     my $param = delete $opt{param};

@@ -1788,7 +1787,6 @@ sub delete_at {

     # Options

     my $primary_keys = delete $opt{primary_key};

-    $primary_keys = [$primary_keys] unless ref $primary_keys;

     my $where = delete $opt{where};

     # Create where parameter

@@ -1808,7 +1806,6 @@ sub update_at {

     $param = shift if @_ % 2;

     my %opt = @_;

     my $primary_keys = delete $opt{primary_key};

-    $primary_keys = [$primary_keys] unless ref $primary_keys;

     my $where = delete $opt{where};

     my $p = delete $opt{param} || {};

     $param  ||= $p;

@@ -59,7 +59,7 @@ for my $method (@methods) {

     elsif (index($method, 'select') != -1) { push @attrs, @select_attrs }

     for my $attr (@attrs) {

-        $code .= "$attr => exists \$self->{$attr} ? \$self->{$attr} : \$self->$attr,";

+        $code .= "exists \$self->{$attr} ? ($attr => \$self->{$attr}) : (),";

     }

     $code .= qq/\@_);/ .

@@ -116,6 +116,13 @@ sub new {

           unless $self->can($attr);

     }

+    # Cache

+    for my $attr (qw/dbi table created_at updated_at bind_type join primary_key/) {

+        $self->$attr;

+        $self->{$attr} = undef unless exists $self->{$attr};

+    }

+    $self->columns;

+    

     return $self;

 }