@@ -1,3 +1,7 @@

+0.1718

+    - added EXPERIMENTAL DBIx::Custom::Model call_dbi method

+    - added EXPERIMENTAL count method

+    - added EXPERIMENTAL DBIx::Custom::Model count method

 0.1717

     - added EXPERIMENTAL get_table_info

     - added EXPERIMETNAL user_table_info attribute

@@ -186,6 +186,8 @@ sub connect {

     return $self;

 }

+sub count { shift->select(column => 'count(*)', @_)->fetch_first->[0] }

+

 sub dbh {

     my $self = shift;

@@ -813,7 +815,7 @@ sub new {

     # Check attributes

     my @attrs = keys %$self;

     foreach my $attr (@attrs) {

-        croak qq{"$attr" is wrong name } . _subname

+        croak qq{Invalid attribute: "$attr" } . _subname

           unless $self->can($attr);

     }

@@ -2281,7 +2283,15 @@ L<DBIx::Custom> is a wrapper of L<DBI>.

 C<AutoCommit> and C<RaiseError> options are true, 

 and C<PrintError> option is false by default.

-=head2 create_model

+=head2 C<count> EXPERIMENTAL

+

+    my $count = $model->count(table => 'book');

+

+Get rows count.

+

+Options is same as C<select> method's ones.

+

+=head2 C<create_model>

     my $model = $dbi->create_model(

         table => 'book',

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

 }

 my @methods = qw/insert insert_at update update_at update_all

-                 delete delete_at delete_all select select_at/;

+                 delete delete_at delete_all select select_at count/;

 foreach my $method (@methods) {

     my $code = sub {

         my $self = shift;

-

-        my @args = (

-            table => $self->table,

-            bind_type => $self->bind_type,

-            primary_key => $self->primary_key,

-            type => $self->type, # DEPRECATED!

-        );

-        push @args, (join => $self->join) if $method =~ /^select/;

-        unshift @args, shift if @_ % 2;

-        

-        $self->dbi->$method(@args, @_);

+        my $args = [qw/table bind_type primary_key type/];

+        push @$args, 'join' if $method =~ /^select/;

+        $self->call_dbi($method, {args => $args}, @_);

     };

     no strict 'refs';

@@ -62,6 +54,19 @@ foreach my $method (@methods) {

     *{"${class}::$method"} = $code;

 }

+sub call_dbi {

+    my $self = shift;

+    my $method = shift;

+    my $options = shift;

+    my $arg_names = $options->{args};

+    

+    my @args;

+    push @args, ($_ => $self->$_) for @$arg_names;

+    unshift @args, shift if @_ % 2;

+    

+    return $self->dbi->$method(@args, @_);

+}

+

 sub DESTROY { }

 sub method {

@@ -163,6 +168,29 @@ L<DBIx::Custom::Model> inherits all methods from L<Object::Simple>,

 and you can use all methods of L<DBIx::Custom> and L<DBI>

 and implements the following new ones.

+=head2 C<call_dbi> EXPERIMENTAL

+

+    $model->call_dbi('insert',

+      {args => ['table', 'primary_key' 'bind_type']}, @_)

+

+Call L<DBIx::Custom>(or subclass) method. you can add

+attribute values of model to arguments by C<args> option.

+

+Generally this method is used when you want to added dbi method to model.

+

+    sub insert {

+        shift->call_dbi('insert',

+          {args => ['table', 'primary_key' 'bind_type']}, @_);

+    }

+

+=head2 C<count> EXPERIMENTAL

+

+    my $count = $model->count;

+

+Get rows count.

+

+Options is same as C<select> method's ones.

+

 =head2 C<delete>

     $table->delete(...);

@@ -3923,5 +3923,15 @@ test 'columns';

 $dbi = MyDBI1->connect;

 $model = $dbi->model($table1);

+test 'count';

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

+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 => 3});

+is($dbi->count(table => $table1), 2);

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

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

+is($model->count, 2);

 1;