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

+0.1603

+  removed DBIx::Custom commit method (not backword compatible)

+  removed DBIx::Custom rollback method (not backword compatible)

+  removed DBIx::Custom auto_commit method (not backword compatible)

 0.1602

   added cache_method attribute

 0.1601

@@ -470,33 +470,6 @@ sub register_filter {

     return $invocant;

 }

-sub auto_commit {

-    my $self = shift;

-    

-    # Not connected

-    croak "Not connected" unless $self->dbh;

-    

-    if (@_) {

-        

-        # Set AutoCommit

-        $self->dbh->{AutoCommit} = $_[0];

-        

-        return $self;

-    }

-    return $self->dbh->{AutoCommit};

-}

-

-sub commit   { 

-    my $ret = eval { shift->dbh->commit };

-    croak $@ if $@;

-    return $ret;

-}

-sub rollback {

-    my $ret = eval { shift->dbh->rollback };

-    croak $@ if $@;

-    return $ret;

-}

-

 sub DESTROY {

     my $self = shift;

@@ -508,18 +481,13 @@ sub DESTROY {

 DBIx::Custom - DBI with hash parameter binding and filtering system

-=head1 VERSION

-

-Version 0.1602

-

 =cut

-our $VERSION = '0.1602';

-$VERSION = eval $VERSION;

+our $VERSION = '0.1603';

 =head1 STABILITY

-This module is not stable. Method name and functionality will be change.

+This module is not stable. Method name and implementations will be change.

 =head1 SYNOPSYS

@@ -632,28 +600,28 @@ And have useful method such as insert(), update(), delete(), and select().

 =head1 ATTRIBUTES

-=head2 user

+=head2 C<user>

 Database user name.

     $dbi  = $dbi->user('Ken');

     $user = $dbi->user;

-=head2 password

+=head2 C<password>

 Database password.

     $dbi      = $dbi->password('lkj&le`@s');

     $password = $dbi->password;

-=head2 data_source

+=head2 C<data_source>

 Database data source.

     $dbi         = $dbi->data_source("dbi:mysql:dbname=$database");

     $data_source = $dbi->data_source;

-=head2 dbh

+=head2 C<dbh>

 Database handle. This is the innstance of L<DBI>

@@ -665,7 +633,7 @@ You can use all methods of L<DBI>

     my $sth    = $dbi->dbh->prepare("...");

     my $errstr = $dbi->dbh->errstr;

-=head2 filters

+=head2 C<filters>

 Filters

@@ -677,21 +645,21 @@ encode_utf8 and decode_utf8 is set to this attribute by default.

     $encode_utf8 = $dbi->filters->{encode_utf8};

     $decode_utf8 = $dbi->filters->{decode_utf8};

-=head2 default_query_filter

+=head2 C<default_query_filter>

 Default query filter.

     $dbi                  = $dbi->default_query_filter('encode_utf8');

     $default_query_filter = $dbi->default_query_filter

-=head2 default_fetch_filter

+=head2 C<default_fetch_filter>

 Fetching filter.

     $dbi                  = $dbi->default_fetch_filter('decode_utf8');

     $default_fetch_filter = $dbi->default_fetch_filter;

-=head2 result_class

+=head2 C<result_class>

 Result class.

@@ -700,7 +668,7 @@ Result class.

 L<DBIx::Custom::Result> is set to this attribute by default.

-=head2 sql_template

+=head2 C<sql_template>

 SQLTemplate instance. sql_template attribute must be 

 the instance of L<DBIx::Cutom::SQLTemplate> subclass.

@@ -716,7 +684,7 @@ this attribute by default.

 This class is L<Object::Simple> subclass.

 You can use all methods of L<Object::Simple>

-=head2 connect

+=head2 C<connect>

 Connect to database.

@@ -726,7 +694,7 @@ Connect to database.

 "AutoCommit" and "RaiseError" option is true, 

 and "PrintError" option is false by dfault.

-=head2 disconnect

+=head2 C<disconnect>

 Disconnect database.

@@ -734,7 +702,7 @@ Disconnect database.

 If database is already disconnected, this method do nothing.

-=head2 insert

+=head2 C<insert>

 Insert row.

@@ -753,7 +721,7 @@ Example:

                  append => "some statement",

                  filter => {title => 'encode_utf8'})

-=head2 update

+=head2 C<update>

 Update rows.

@@ -774,7 +742,7 @@ Example:

                  append => "some statement",

                  filter => {title => 'encode_utf8'});

-=head2 update_all

+=head2 C<update_all>

 Update all rows.

@@ -792,7 +760,7 @@ Example:

                      param  => {author => 'taro'},

                      filter => {author => 'encode_utf8'});

-=head2 delete

+=head2 C<delete>

 Delete rows.

@@ -811,7 +779,7 @@ Example:

                  append => 'some statement',

                  filter => {id => 'encode_utf8'});

-=head2 delete_all

+=head2 C<delete_all>

 Delete all rows.

@@ -824,7 +792,7 @@ Example:

     # delete_all

     $dbi->delete_all(table => 'books');

-=head2 select

+=head2 C<select>

 Select rows.

@@ -861,23 +829,25 @@ Example:

         relation => {'books.id' => 'rental.book_id'}

     );

-=head2 create_query

+=head2 C<create_query>

+    my $query = $dbi->create_query(

+        "select * from authors where {= name} and {= age};"

+    );

+

 Create the instance of L<DBIx::Custom::Query>. 

 This receive the string written by SQL template.

-    my $query = $dbi->create_query("select * from authors where {= name} and {= age}");

+=head2 C<execute>

-=head2 execute

+    $result = $dbi->execute($query,    param => $params, filter => {%filter});

+    $result = $dbi->execute($template, param => $params, filter => {%filter});

 Execute the instace of L<DBIx::Custom::Query> or

 the string written by SQL template.

 Return value is the instance of L<DBIx::Custom::Result>.

-    $result = $dbi->execute($query,    param => $params, filter => {%filter});

-    $result = $dbi->execute($template, param => $params, filter => {%filter});

-

-Example:

+B<Example:>

     $result = $dbi->execute("select * from authors where {= name} and {= age}", 

                             param => {name => 'taro', age => 19});

@@ -888,13 +858,13 @@ Example:

 See also L<DBIx::Custom::SQLTemplate> to know how to write SQL template.

-=head2 register_filter

+=head2 C<register_filter>

-Resister filter.

-    

     $dbi->register_filter(%filters);

-Example:

+Resister filter.

+

+B<Example:>

     $dbi->register_filter(

         encode_utf8 => sub {

@@ -913,56 +883,23 @@ Example:

         }

     );

-=head2 auto_commit

-

-Auto commit.

-

-    $self        = $dbi->auto_commit(1);

-    $auto_commit = $dbi->auto_commit;

-

-This is equal to

-

-    $dbi->dbh->{AutoCommit} = 1;

-    $auto_commit = $dbi->dbh->{AutoCommit};

-

-=head2 commit

-

-Commit.

-

-    $dbi->commit;

-

-This is equal to

-

-    $dbi->dbh->commit;

-

-=head2 rollback

-

-Rollback.

-

-    $dbi->rollback

-

-This is equal to

-

-    $dbi->dbh->rollback;

-

-=head2 cache

-

-Cache the result of parsing SQL template.

+=head2 C<cache>

     $dbi   = $dbi->cache(1);

     $cache = $dbi->cache;

+Cache the result of parsing SQL template.

 Default to 1.

-=head2 cache_method

+=head2 C<cache_method>

+

+    $dbi          = $dbi->cache_method(\&cache_method);

+    $cache_method = $dbi->cache_method

 Method for cache.

-    $dbi          = $dbi->cache_method(sub { ... });

-    $cache_method = $dbi->cache_method

+B<Example:>

-Example:

-    

     $dbi->cache_method(

         sub {

             my $self = shift;

@@ -53,14 +53,14 @@ DBIx::Custom::MySQL - a MySQL implementation of DBIx::Custom

 This class is L<DBIx::Custom> subclass.

 You can use all attributes of L<DBIx::Custom>

-=head2 database

+=head2 C<database>

 Database name

     $dbi      = $dbi->database('your_database');

     $database = $dbi->database;

-=head2 host

+=head2 C<host>

 Database host name.

@@ -71,7 +71,7 @@ IP address can be set to host attribute.

     $dbi->host('127.03.45.12');

-=head2 port

+=head2 C<port>

 Database port.

@@ -83,7 +83,7 @@ Database port.

 This class is L<DBIx::Custom> subclass.

 You can use all methods of L<DBIx::Custom>.

-=head2 connect - overridden

+=head2 C<connect (overridden)>

 Connect to database.

@@ -92,7 +92,7 @@ Connect to database.

                                            password => 'kliej&@K',

                                            database  => 'your_database');

-=head2 last_insert_id

+=head2 C<last_insert_id>

 Last insert ID.

@@ -20,35 +20,35 @@ DBIx::Custom::Query - query used by DBIx::Custom

 =head1 ATTRIBUTES

-=head2 sql

+=head2 C<sql>

 SQL statement.

     $query = $query->sql($sql);

     $sql   = $query->sql;

-=head2 columns

+=head2 C<columns>

 Column names.

     $query   = $query->columns([@columns]);

     $columns = $query->columns;

-=head2 default_filter

+=head2 C<default_filter>

 Default filter.

     $query          = $query->default_filter($filter);

     $default_filter = $query->default_filter;

-=head2 filter

+=head2 C<filter>

 Filter.

     $query  = $query->filter({%filter});

     $filter = $query->filter;

-=head2 sth

+=head2 C<sth>

 Statement handle.

@@ -213,21 +213,21 @@ DBIx::Custom::Result - DBIx::Custom Resultset

 =head1 ATTRIBUTES

-=head2 sth

+=head2 C<sth>

 Statement handle.

     $result = $result->sth($sth);

     $sth    = $reuslt->sth

-=head2 default_filter

+=head2 C<default_filter>

 Default filter.

     $result         = $result->default_filter('decode_utf8');

     $default_filter = $result->default_filter;

-=head2 filter

+=head2 C<filter>

 Filter

@@ -239,7 +239,7 @@ Filter

 This class is L<Object::Simple> subclass.

 You can use all methods of L<Object::Simple>

-=head2 fetch

+=head2 C<fetch>

 Fetch a row into array

@@ -253,13 +253,13 @@ Example:

         my $value2 = $row->[1];

     }

-=head2 fetch_first

+=head2 C<fetch_first>

 Fetch only first row into array and finish statment handle.

     $row = $result->fetch_first;

-=head2 fetch_multi

+=head2 C<fetch_multi>

 Fetch multiple rows into array of array.

@@ -271,13 +271,13 @@ Example:

         # do someting

     }

-=head2 fetch_all

+=head2 C<fetch_all>

 Fetch all rows into array of array.

     $rows = $result->fetch_all;

-=head2 fetch_hash

+=head2 C<fetch_hash>

 Fetch a row into hash

@@ -292,13 +292,13 @@ Example:

         # do something

     }

-=head2 fetch_hash_first

+=head2 C<fetch_hash_first>

 Fetch only first row into hash and finish statment handle.

     $row = $result->fetch_hash_first;

-=head2 fetch_hash_multi

+=head2 C<fetch_hash_multi>

 Fetch multiple rows into array of hash

@@ -310,7 +310,7 @@ Example:

         # do someting

     }

-=head2 fetch_hash_all

+=head2 C<fetch_hash_all>

 Fetch all rows into array of hash.

@@ -222,27 +222,27 @@ DBIx::Custom::SQLTemplate - DBIx::Custom SQL Template

 =head1 ATTRIBUTES

-=head2 tag_processors

+=head2 C<tag_processors>

     $sql_tmpl       = $sql_tmpl->tag_processors($name1 => $tag_processor1

                                                 $name2 => $tag_processor2);

     $tag_processors = $sql_tmpl->tag_processors;

-=head2 tag_start

+=head2 C<tag_start>

     $sql_tmpl  = $sql_tmpl->tag_start('{');

     $tag_start = $sql_tmpl->tag_start;

 Default is '{'

-=head2 tag_end

+=head2 C<tag_end>

     $sql_tmpl    = $sql_tmpl->tag_start('}');

     $tag_end = $sql_tmpl->tag_start;

 Default is '}'

-=head2 tag_syntax

+=head2 C<tag_syntax>

     $sql_tmpl   = $sql_tmpl->tag_syntax($tag_syntax);

     $tag_syntax = $sql_tmpl->tag_syntax;

@@ -252,9 +252,9 @@ Default is '}'

 This class is L<Object::Simple> subclass.

 You can use all methods of L<Object::Simple>

-=head2 new

+=head2 C<new>

-=head2 create_query

+=head2 C<create_query>

 Create L<DBIx::Custom::Query> object parsing SQL template

@@ -285,7 +285,7 @@ query has two infomation

     1. sql       : SQL

     2. key_infos : Parameter access key information

-=head2 register_tag_processor

+=head2 C<register_tag_processor>

 Add tag processor

@@ -325,7 +325,7 @@ Key information is a little complex. so I will explan this in future.

 If you want to know more, Please see DBIx::Custom::SQLTemplate source code.

-=head2 clone

+=head2 C<clone>

 Clone DBIx::Custom::SQLTemplate object

@@ -63,7 +63,7 @@ DBIx::Custom::SQLite - a SQLite implementation of DBIx::Custom

 This class is L<DBIx::Custom> subclass.

 You can use all attributes of L<DBIx::Custom>.

-=head2 database

+=head2 C<database>

 Database name

@@ -75,7 +75,7 @@ Database name

 This class is L<DBIx::Custom> subclass.

 You can use all methods of L<DBIx::Custom>.

-=head2 connect - overridden

+=head2 C<connect (overridden)>

 Connect to database.

@@ -83,13 +83,13 @@ Connect to database.

 If you set database, host, or port, data source is automatically created.

-=head2 connect_memory

+=head2 C<connect_memory>

 Connect memory database.

     $dbi->connect_memory;

-=head2 last_insert_rowid

+=head2 C<last_insert_rowid>

 Last insert row ID.

@@ -398,19 +398,19 @@ is($dbi->filters->{encode_utf8}->('あ'),

 test 'transaction';

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

 $dbi->execute($CREATE_TABLE->{0});

-$dbi->auto_commit(0);

+$dbi->dbh->begin_work;

 $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});

 $dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});

-$dbi->commit;

+$dbi->dbh->commit;

 $result = $dbi->select(table => 'table1');

 is_deeply(scalar $result->fetch_hash_all, [{key1 => 1, key2 => 2}, {key1 => 2, key2 => 3}],

           "$test : commit");

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

 $dbi->execute($CREATE_TABLE->{0});

-$dbi->auto_commit(0);

+$dbi->dbh->begin_work(0);

 $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});

-$dbi->rollback;

+$dbi->dbh->rollback;

 $result = $dbi->select(table => 'table1');

 ok(! $result->fetch_first, "$test: rollback");