@@ -1,4 +1,5 @@

 0.1723

+    - removed EXPERIMENTAL call_dbi method from DBIx::Custom::Model

     - removed EXPERIMENTAL map_param method from DBIx::Custom

     - removed EXPERIMENTAL flag from the following DBIx::Custom::Result mehotds

       filter_on, type_rule, type_rule_off, type_rule_on, type_rule1_off,

@@ -44,9 +44,15 @@ foreach my $method (@methods) {

     my $code = sub {

         my $self = shift;

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

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

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

+        $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) : (), 

+            @_

+        )

     };

     no strict 'refs';

@@ -54,19 +60,6 @@ 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 execute {

     my $self = shift;

     push @_, ($_ => $self->$_) for qw/table bind_type primary_key type/;