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

+0.1613

+  added experimental register_method() method

+  added experimental methods attribute

 0.1612

-  add tests

+  added tests

   updated document

   removed DBIx::Custom::SQLite last_insert_rawid() mehtod(not backword compatible)

   removed DBIx::Custom::MySQL last_insert_id() method(not backword compatible)

@@ -474,13 +474,39 @@ sub _check_filter {

     }

 }

+__PACKAGE__->attr('methods' => sub { {} });

+

+sub register_method {

+    my $self = shift;

+    

+    # Register method

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

+    $self->methods({%{$self->methods}, %$methods});

+    

+    return $self;

+}

+

+our $AUTOLOAD;

+sub AUTOLOAD {

+    my $self = shift;

+    my $method = $AUTOLOAD;

+    $method =~ s/.*:://;

+   

+   return if $method eq 'DESTROY';

+   

+   croak qq{Method "$method" is not registered"}

+     unless $self->methods->{$method};

+   

+   return $self->methods->{$method}->($self, @_);

+}

+

 =head1 NAME

 DBIx::Custom - DBI interface, having hash parameter binding and filtering system

 =cut

-our $VERSION = '0.1612';

+our $VERSION = '0.1613';

 =head1 STABILITY

@@ -1213,6 +1239,13 @@ Default to 1.

 This check maybe damege performance.

 If you require performance, set C<filter_check> attribute to 0.

+=head2 C<(experimental) methods>

+

+    my $methods = $dbi->methods;

+    $dbi        = $dbi->methods(\%methods);

+

+Additional methods.

+

 =head1 METHODS

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

@@ -1475,6 +1508,21 @@ B<Example:>

         }

     );

+=head2 C<(experimental) register_method>

+

+    $dbi->register_method(

+        begin_work => sub { shift->dbh->begin_work },

+        commit     => sub { shift->dbh->commit },

+        rollback   => sub { shift->dbh->rollback}

+    );

+

+Register methods to the object. You can call these methods

+from the object.

+

+    $dbi->begin_work;

+    $dbi->commit;

+    $dbi->rollback;

+

 =head1 BUGS

 Please tell me bugs if found.

@@ -21,6 +21,8 @@ sub test {

     $test = shift;

 }

+use DBIx::Custom::SQLite;

+

 # Constant varialbes for test

 my $CREATE_TABLE = {

     0 => 'create table table1 (key1 char(255), key2 char(255));',

@@ -554,3 +556,14 @@ ok($@, "$test: execute fail");

 eval{$dbi->create_query('select * from table1 where {0 key1}')};

 like($@, qr/\Q.t /, "$test : caller spec");

+

+test 'register_method';

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

+$dbi->register_method(

+    one => sub { 1 },

+);

+$dbi->register_method({

+    two => sub { 2 }

+});

+is($dbi->one, 1, "$test : hash");

+is($dbi->two, 2, "$test : hash reference");