@@ -1,3 +1,6 @@

+0.1640

+  autoload DBI method

+  removed experimental expand

 0.1639

   improved delete() and update() where option. you can use DBIx::Custom::Where object

   added experimental not_exists()

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

 package DBIx::Custom;

-our $VERSION = '0.1639';

+our $VERSION = '0.1640';

 use 5.008001;

 use strict;

@@ -53,21 +53,7 @@ __PACKAGE__->attr(

     }

 );

-# DBI methods

-foreach my $method (qw/begin_work commit rollback/) {

-    my $code = sub {

-        my $self = shift;

-        my $ret = eval {$self->dbh->$method};

-        croak $@ if $@;

-        return $ret;

-    };

-    no strict 'refs';

-    my $pkg = __PACKAGE__;

-    *{"${pkg}::$method"} = $code;

-};

-

 our $AUTOLOAD;

-

 sub AUTOLOAD {

     my $self = shift;

@@ -76,10 +62,11 @@ sub AUTOLOAD {

     # Method

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

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

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

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

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

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

+    # DBI method

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

 }

 sub apply_filter {

@@ -371,21 +358,6 @@ sub execute{

     return $affected;

 }

-sub expand {

-    my $self = shift;

-    my $source = ref $_[0] eq 'HASH' ? $_[0] : {@_};

-    my $table = (keys %$source)[0];

-    my $param = $source->{$table};

-    

-    # Expand table name

-    my $expand = {};

-    foreach my $column (keys %$param) {

-        $expand->{"$table.$column"} = $param->{$column};

-    }

-    

-    return %$expand;

-}

-

 our %VALID_INSERT_ARGS = map { $_ => 1 } qw/table param append

                                             filter query/;

 sub insert {

@@ -1001,6 +973,7 @@ C<connect()> method use this value to connect the database.

 =head1 METHODS

 L<DBIx::Custom> inherits all methods from L<Object::Simple>

+and use all method of L<DBI>

 and implements the following new ones.

 =head2 C<(experimental) apply_filter>

@@ -1025,23 +998,6 @@ arguments.

          table => ['table1']

     );

-=head2 C<begin_work>

-

-    $dbi->begin_work;

-

-Start transaction.

-This is same as L<DBI>'s C<begin_work>.

-

-L<DBIx::Custom> inherits all methods from L<Object::Simple>

-and implements the following new ones.

-

-=head2 C<commit>

-

-    $dbi->commit;

-

-Commit transaction.

-This is same as L<DBI>'s C<commit>.

-

 =head2 C<connect>

     my $dbi = DBIx::Custom->connect(data_source => "dbi:mysql:database=dbname",

@@ -574,7 +574,7 @@ is($dbi->two, 2, "second");

 is($dbi->twice(5), 10 , "second");

 eval {$dbi->XXXXXX};

-like($@, qr/\QCan't locate object method "XXXXXX" via "DBIx::Custom"/, "not exists");

+ok($@, "not exists");

 test 'out filter';

 $dbi = DBIx::Custom->connect($NEW_ARGS->{0});

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

-use Test::More tests => 12;

+use Test::More 'no_plan';

 use strict;

 use warnings;

@@ -83,21 +83,6 @@ is($dbi->filters->{a}->(), 1);

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

 is($dbi->filters->{b}->(), 2);

-

-test 'expand';

-{

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

-    my $source = {books => {title => 'Perl', author => 'Ken'}};

-    is_deeply({$dbi->expand($source)}, 

-              {'books.title' => 'Perl', 'books.author' => 'Ken'});

-}

-{

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

-    my %source = (books => {title => 'Perl', author => 'Ken'});

-    is_deeply({$dbi->expand(%source)}, 

-              {'books.title' => 'Perl', 'books.author' => 'Ken'});

-}

-

 test 'invalid attribute name';

 eval {$dbi = DBIx::Custom->new(a => 1) };

 like ($@, qr/"a" is invalid attribute name/);