@@ -1,3 +1,10 @@

+0.1101

+  rename DBIx::Custom::SQLite last_insert_id to last_insert_rowid

+0.1001

+  remove run_transaction().

+  add transaction() and DBIx::Custom::Transaction

+  rename fetch_first to fetch_single

+  rename fetch_hash_first to fetch_hash_single

 0.0906

   fix some bug

 0.0905

@@ -37,6 +37,7 @@ __PACKAGE__->dual_attr('sql_tmpl', default => sub {DBIx::Custom::SQL::Template->

 sub add_filter {

     my $invocant = shift;

+    # Add filter

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

     $invocant->filters({%{$invocant->filters}, %$filters});

@@ -46,6 +47,7 @@ sub add_filter {

 sub add_format{

     my $invocant = shift;

+    # Add format

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

     $invocant->formats({%{$invocant->formats}, %$formats});

@@ -55,10 +57,14 @@ sub add_format{

 sub _auto_commit {

     my $self = shift;

+    # Not connected

     croak("Not yet connect to database") unless $self->dbh;

     if (@_) {

+        

+        # Set AutoCommit

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

+        

         return $self;

     }

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

@@ -66,11 +72,14 @@ sub _auto_commit {

 sub connect {

     my $self = shift;

+    

+    # Information

     my $data_source = $self->data_source;

     my $user        = $self->user;

     my $password    = $self->password;

     my $options     = $self->options;

+    # Connect

     my $dbh = eval{DBI->connect(

         $data_source,

         $user,

@@ -83,34 +92,45 @@ sub connect {

         }

     )};

+    # Connect error

     croak $@ if $@;

+    # Database handle

     $self->dbh($dbh);

+    

     return $self;

 }

 sub DESTROY {

     my $self = shift;

+    

+    # Disconnect

     $self->disconnect if $self->connected;

 }

-sub connected {

-    my $self = shift;

-    return ref $self->{dbh} eq 'DBI::db';

-}

+sub connected { ref shift->{dbh} eq 'DBI::db' }

 sub disconnect {

     my $self = shift;

+    

     if ($self->connected) {

+        

+        # Disconnect

         $self->dbh->disconnect;

         delete $self->{dbh};

     }

+    

+    return $self;

 }

 sub reconnect {

     my $self = shift;

+    

+    # Reconnect

     $self->disconnect if $self->connected;

     $self->connect;

+    

+    return $self;

 }

 sub prepare {

@@ -359,13 +379,6 @@ sub _build_bind_values {

 sub transaction { DBIx::Custom::Transaction->new(dbi => shift) }

-sub last_insert_id {

-    my $self = shift;

-    my $class = ref $self;

-    croak "'$class' do not suppert 'last_insert_id'";

-}

-

-

 sub create_table {

     my ($self, $table, @column_definitions) = @_;

@@ -495,6 +508,7 @@ sub update_all {

     my $query_edit_cb    = shift;

     my $options          = {allow_update_all => 1};

+    # Update all rows

     return $self->update($table, $update_params, {}, $append_statement,

                          $query_edit_cb, $options);

 }

@@ -551,6 +565,7 @@ sub delete_all {

     my $query_edit_cb    = shift;

     my $options          = {allow_delete_all => 1};

+    # Delete all rows

     return $self->delete($table, {}, $append_statement, $query_edit_cb,

                          $options);

 }

@@ -645,16 +660,20 @@ sub select {

 sub _add_query_cache {

     my ($class, $template, $query) = @_;

+    

+    # Query information

     my $query_cache_keys = $class->_query_cache_keys;

     my $query_caches     = $class->_query_caches;

+    # Already cached

     return $class if $query_caches->{$template};

+    # Cache

     $query_caches->{$template} = $query;

     push @$query_cache_keys, $template;

+    # Check cache overflow

     my $overflow = @$query_cache_keys - $class->query_cache_max;

-    

     for (my $i = 0; $i < $overflow; $i++) {

         my $template = shift @$query_cache_keys;

         delete $query_caches->{$template};

@@ -666,7 +685,7 @@ sub _add_query_cache {

 sub filter_off {

     my $self = shift;

-    # filter off

+    # Filter off

     $self->bind_filter(undef);

     $self->fetch_filter(undef);

@@ -679,11 +698,11 @@ DBIx::Custom - Customizable DBI

 =head1 VERSION

-Version 0.1001

+Version 0.1101

 =cut

-our $VERSION = '0.1001';

+our $VERSION = '0.1101';

 =head1 SYNOPSYS

@@ -714,25 +733,25 @@ our $VERSION = '0.1001';

     $dbi->select('books', [qw/author title/], {author => 'Ken'},

                  'order by id limit 1');

-=head1 Accessors

+=head1 ATTRIBUTES

 =head2 user

-Set and get database user name

+Database user name

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

     $user = $dbi->user;

 =head2 password

-Set and get database password

+Database password

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

     $password = $dbi->password;

 =head2 data_source

-Set and get database data source

+Database data source

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

     $data_source = $dbi->data_source;

@@ -741,14 +760,14 @@ If you know data source more, See also L<DBI>.

 =head2 database

-Set and get database name

+Database name

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

     $database = $dbi->database;

 =head2 host

-Set and get host name

+Host name

     $dbi  = $dbi->host('somehost.com');

     $host = $dbi->host;

@@ -757,21 +776,21 @@ You can also set IP address like '127.03.45.12'.

 =head2 port

-Set and get port

+Port number

     $dbi  = $dbi->port(1198);

     $port = $dbi->port;

 =head2 options

-Set and get DBI option

+DBI options

     $dbi     = $dbi->options({PrintError => 0, RaiseError => 1});

     $options = $dbi->options;

 =head2 sql_tmpl

-Set and get SQL::Template object

+SQL::Template object

     $dbi      = $dbi->sql_tmpl(DBIx::Cutom::SQL::Template->new);

     $sql_tmpl = $dbi->sql_tmpl;

@@ -780,7 +799,7 @@ See also L<DBIx::Custom::SQL::Template>.

 =head2 filters

-Set and get filters

+Filters

     $dbi     = $dbi->filters({filter1 => sub { }, filter2 => sub {}});

     $filters = $dbi->filters;

@@ -793,7 +812,7 @@ If you add filter, use add_filter method.

 =head2 formats

-Set and get formats

+Formats

     $dbi     = $dbi->formats({format1 => sub { }, format2 => sub {}});

     $formats = $dbi->formats;

@@ -806,7 +825,7 @@ If you add format, use add_format method.

 =head2 bind_filter

-Set and get binding filter

+Binding filter

     $dbi         = $dbi->bind_filter($bind_filter);

     $bind_filter = $dbi->bind_filter

@@ -830,7 +849,7 @@ Bind filter arguemts is

 =head2 fetch_filter

-Set and get Fetch filter

+Fetching filter

     $dbi          = $dbi->fetch_filter($fetch_filter);

     $fetch_filter = $dbi->fetch_filter;

@@ -854,42 +873,47 @@ Bind filter arguemts is

 =head2 no_bind_filters

-Set and get no filter keys when binding

+Key list which dose not have to bind filtering

     $dbi             = $dbi->no_bind_filters(qw/title author/);

     $no_bind_filters = $dbi->no_bind_filters;

 =head2 no_fetch_filters

-Set and get no filter keys when fetching

+Key list which dose not have to fetch filtering

     $dbi              = $dbi->no_fetch_filters(qw/title author/);

     $no_fetch_filters = $dbi->no_fetch_filters;

 =head2 result_class

-Set and get resultset class

+Resultset class

     $dbi          = $dbi->result_class('DBIx::Custom::Result');

     $result_class = $dbi->result_class;

+Default is L<DBIx::Custom::Result>

+

 =head2 dbh

-Get database handle

+Database handle

     $dbi = $dbi->dbh($dbh);

     $dbh = $dbi->dbh;

 =head2 query_cache_max

-Set and get query cache max

+Query cache max

     $class           = DBIx::Custom->query_cache_max(50);

     $query_cache_max = DBIx::Custom->query_cache_max;

 Default value is 50

-=head1 Methods

+=head1 METHODS

+

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

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

 =head2 connect

@@ -1150,15 +1174,6 @@ You can also edit query

         }

     }

-

-=head2 last_insert_id

-

-Get last insert id

-

-    $last_insert_id = $dbi->last_insert_id;

-

-This method is implemented by subclass.

-

 =head2 prepare

 Prepare statement handle.

@@ -1,8 +1,9 @@

 package DBIx::Custom::Basic;

-use base 'DBIx::Custom';

 use warnings;

 use strict;

+

+use base 'DBIx::Custom';

 use Encode qw/decode encode/;

 __PACKAGE__->add_filter(

@@ -19,7 +20,6 @@ __PACKAGE__->add_format(

     'ISO-8601_time'     => '%H:%M:%S',

 );

-# Methods

 sub utf8_filter_on {

     my $self = shift;

@@ -36,15 +36,19 @@ sub utf8_filter_on {

 DBIx::Custom::Basic - DBIx::Custom basic implementation

-=head1 See DBIx::Custom documentation

-

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

+=head1 SYNOPSYS

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

+    # New

+    my $dbi = DBIx::Custom::Basic->new(

+        data_source => "dbi:mysql:database=books",

+        user        => 'ken',

+        password    => '!LFKD%$&'

+    );

-Please see L<DBIx::Custom> documentation

+=head1 METHODS

-=head1 Methods

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

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

 =head2 utf8_filter_on

@@ -57,7 +61,7 @@ This equel to

     $dbi->bind_filter($dbi->filters->{encode_utf8});

     $dbi->fetch_filter($dbi->filters->{decode_utf8});

-=head1 Available filters

+=head1 FILTERS

 =head2 encode_utf8

@@ -79,7 +83,7 @@ This filter is generally used as fetch filter

     $dbi->fetch_filter($dbi->filters->{decode_utf8});

-=head2 Available formats

+=head1 DATE FORMATS

 strptime formats is available

@@ -95,19 +99,4 @@ You get format as the following

     my $format = $dbi->formats->{$format_name};

-=head1 AUTHOR

-

-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>

-

-Github L<http://github.com/yuki-kimoto>

-

-I develope this module L<http://github.com/yuki-kimoto/DBIx-Custom>

-

-=head1 COPYRIGHT & LICENSE

-

-Copyright 2009 Yuki Kimoto, all rights reserved.

-

-This program is free software; you can redistribute it and/or modify it

-under the same terms as Perl itself.

-

 =cut

@@ -1,8 +1,9 @@

 package DBIx::Custom::MySQL;

-use base 'DBIx::Custom::Basic';

 use warnings;

 use strict;

+

+use base 'DBIx::Custom::Basic';

 use Carp 'croak';

 __PACKAGE__->add_format(

@@ -11,21 +12,19 @@ __PACKAGE__->add_format(

     time     => __PACKAGE__->formats->{SQL99_time},

 );

-

 sub connect {

     my $self = shift;

+    # Create data source

     if (!$self->data_source) {

         my $database = $self->database;

         my $host     = $self->host;

         my $port     = $self->port;

-        

         my $data_source = "dbi:mysql:";

         my $data_source_original = $data_source;

         $data_source .= "database=$database;" if $database;

         $data_source .= "host=$host;"         if $host;

         $data_source .= "port=$port;"         if $port;

-        

         $data_source =~ s/:$// if $data_source eq $data_source_original;

         $self->data_source($data_source);

     }

@@ -36,8 +35,10 @@ sub connect {

 sub last_insert_id {

     my $self = shift;

+    # Not connected

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

+    # Get last insert id

     my $last_insert_id = $self->dbh->{mysql_insertid};

     return $last_insert_id;

@@ -47,21 +48,16 @@ sub last_insert_id {

 DBIx::Custom::MySQL - DBIx::Custom MySQL implementation

-=head1 Synopsys

+=head1 SYNOPSYS

     # New

     my $dbi = DBIx::Custom::MySQL->new(user => 'taro', $password => 'kliej&@K',

                                        database => 'sample_db');

-=head1 See DBIx::Custom and DBIx::Custom::Basic documentation at first

+=head1 METHODS

-This class is L<DBIx::Custom::Basic> subclass,

-and L<DBIx::Custom::Basic> is L<DBIx::Custom> subclass.

-

-You can use all methods of L<DBIx::Custom::Basic> and <DBIx::Custom>

-Please see L<DBIx::Custom::Basic> and <DBIx::Custom> documentation.

-

-=head1 Object methods

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

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

 =head2 connect

@@ -69,8 +65,6 @@ Connect to database

     $self->connect;

-This override L<DBIx::Custom> connect.

-

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

 =head2 last_insert_id

@@ -86,19 +80,4 @@ This is equal to MySQL function

     last_insert_id()

-=head1 Author

-

-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>

-

-Github L<http://github.com/yuki-kimoto>

-

-I develope this module L<http://github.com/yuki-kimoto/DBIx-Custom>

-

-=head1 Copyright & license

-

-Copyright 2009 Yuki Kimoto, all rights reserved.

-

-This program is free software; you can redistribute it and/or modify it

-under the same terms as Perl itself.

-

-

+=cut

@@ -1,9 +1,10 @@

 package DBIx::Custom::Query;

-use base 'Object::Simple';

 use strict;

 use warnings;

+use base 'Object::Simple';

+

 __PACKAGE__->attr([qw/sql key_infos bind_filter fetch_filter sth/]);

 __PACKAGE__->attr(_no_bind_filters => sub { {} });

 __PACKAGE__->attr(no_fetch_filters => sub { [] });

@@ -11,6 +12,7 @@ __PACKAGE__->attr(no_fetch_filters => sub { [] });

 sub new {

     my $self = shift->SUPER::new(@_);

+    # Initialize attributes

     $self->no_bind_filters($self->{no_bind_filters})

       if $self->{no_bind_filters};

@@ -21,10 +23,11 @@ sub no_bind_filters {

     my $self = shift;

     if (@_) {

+        # Set

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

+        # Cached

         my %no_bind_filters = map { $_ => 1 } @{$self->{no_bind_filters}};

-        

         $self->_no_bind_filters(\%no_bind_filters);

         return $self;

@@ -33,6 +36,8 @@ sub no_bind_filters {

     return $self->{no_bind_filters};

 }

+1;

+

 =head1 NAME

 DBIx::Custom::Query - DBIx::Custom query

@@ -52,76 +57,64 @@ DBIx::Custom::Query - DBIx::Custom query

     $query->fetch_filter($dbi->filters->{default_fetch_filter});

     $query->no_fetch_filters('title', 'author');

-=head1 Accessors

+=head1 ATTRIBUTES

 =head2 sth

-Set and get statement handle

+Statement handle

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

     $sth   = $query->sth;

 =head2 sql

-Set and get SQL

+SQL

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

     $sql   = $query->sql;

 =head2 bind_filter

-Set and get bind filter

+Filter excuted when value is bind

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

     $bind_filter = $query->bind_filter;

 =head2 no_bind_filters

-Set and get keys of no filtering

+Key list which dose not have to bind filtering

     $query           = $query->no_bind_filters($no_filters);

     $no_bind_filters = $query->no_bind_filters;

 =head2 fetch_filter

-Set and get fetch filter

+Filter excuted when data is fetched

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

     $fetch_filter = $query->fetch_filter;

 =head2 no_fetch_filters

-Set and get keys of no filtering

+Key list which dose not have to fetch filtering

     $query            = $query->no_fetch_filters($no_filters);

     $no_fetch_filters = $query->no_fetch_filters;

 =head2 key_infos

-Set and get key informations

+Key informations

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

     $key_infos = $query->key_infos;

-=head1 Methods

+=head1 METHODS

+

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

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

 =head2 new

     my $query = DBIx::Custom::Query->new;

-    

-=head1 AUTHOR

-

-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>

-

-Github L<http://github.com/yuki-kimoto>

-

-=head1 COPYRIGHT & LICENSE

-

-Copyright 2009 Yuki Kimoto, all rights reserved.

-

-This program is free software; you can redistribute it and/or modify it

-under the same terms as Perl itself.

 =cut

-

-1;

@@ -1,8 +1,9 @@

 package DBIx::Custom::Result;

-use base 'Object::Simple';

 use strict;

 use warnings;

+

+use base 'Object::Simple';

 use Carp 'croak';

 __PACKAGE__->attr([qw/_dbi sth fetch_filter/]);

@@ -11,6 +12,7 @@ __PACKAGE__->attr(_no_fetch_filters => sub { {} });

 sub new {

     my $self = shift->SUPER::new(@_);

+    # Initialize attributes

     $self->no_fetch_filters($self->{no_fetch_filters})

       if exists $self->{no_fetch_filters};

@@ -22,10 +24,11 @@ sub no_fetch_filters {

     if (@_) {

+        # Set

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

+        # Cached

         my %no_fetch_filters = map {$_ => 1} @{$self->{no_fetch_filters}};

-        

         $self->_no_fetch_filters(\%no_fetch_filters);

         return $self;

@@ -172,6 +175,7 @@ sub fetch_hash_rows {

 sub fetch_all {

     my $self = shift;

+    # Fetch all rows

     my $rows = [];

     while(my @row = $self->fetch) {

         push @$rows, [@row];

@@ -182,6 +186,7 @@ sub fetch_all {

 sub fetch_hash_all {

     my $self = shift;

+    # Fetch all rows as hash

     my $rows = [];

     while(my %row = $self->fetch_hash) {

         push @$rows, {%row};

@@ -193,15 +198,20 @@ sub finish { shift->sth->finish }

 sub error { 

     my $self = shift;

+    

+    # Statement handle

     my $sth  = $self->sth;

+    

     return wantarray ? ($sth->errstr, $sth->err, $sth->state) : $sth->errstr;

 }

+1;

+

 =head1 NAME

 DBIx::Custom::Result - DBIx::Custom Resultset

-=head1 Synopsis

+=head1 SYNOPSIS

     my $result = $dbi->query($query);

@@ -215,30 +225,33 @@ DBIx::Custom::Result - DBIx::Custom Resultset

         # Do something

     }

-=head1 Accessors

+=head1 ATTRIBUTES

 =head2 sth

-Set and Get statement handle

+Statement handle

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

     $sth    = $reuslt->sth

 =head2 fetch_filter

-Set and Get fetch filter

+Filter excuted when data is fetched

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

     $fetch_filter   = $result->fech_filter;

 =head2 no_fetch_filters

-Set and Get no filter keys when fetching

+Key list which dose not have to fetch filtering

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

     $no_fetch_filters = $result->no_fetch_filters;

-=head1 Methods

+=head1 METHODS

+

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

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

 =head2 new

@@ -372,23 +385,4 @@ This is equel to

     $result->sth->finish;

-=head1 See also

-

-L<DBIx::Custom>

-

-=head1 Author

-

-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>

-

-Github L<http://github.com/yuki-kimoto>

-

-=head1 Copyright & licence

-

-Copyright 2009 Yuki Kimoto, all rights reserved.

-

-This program is free software; you can redistribute it and/or modify it

-under the same terms as Perl itself.

-

 =cut

-

-1;

@@ -1,10 +1,10 @@

 package DBIx::Custom::SQL::Template;

-use base 'Object::Simple';

 use strict;

 use warnings;

-use Carp 'croak';

+use base 'Object::Simple';

+use Carp 'croak';

 use DBIx::Custom::Query;

 __PACKAGE__->dual_attr('tag_processors', default => sub { {} },

@@ -48,7 +48,6 @@ __PACKAGE__->tag_syntax(<< 'EOS');

 EOS

-# Add Tag processor

 sub add_tag_processor {

     my $invocant = shift;

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

@@ -56,7 +55,6 @@ sub add_tag_processor {

     return $invocant;

 }

-# Clone

 sub clone {

     my $self = shift;

     my $new = $self->new;

@@ -69,10 +67,6 @@ sub clone {

     return $new;

 }

-

-### Object Methods

-

-# Create Query

 sub create_query {

     my ($self, $template)  = @_;

@@ -85,7 +79,6 @@ sub create_query {

     return $query;

 }

-# Parse template

 sub _parse_template {

     my ($self, $template) = @_;

     $template ||= '';

@@ -142,7 +135,6 @@ sub _parse_template {

     return $tree;

 }

-# Build SQL from parsing tree

 sub _build_query {

     my ($self, $tree) = @_;

@@ -206,7 +198,6 @@ sub _build_query {

     return $query;

 }

-# Get placeholder count

 sub _placeholder_count {

     my ($self, $expand) = @_;

     $expand ||= '';

@@ -221,7 +212,6 @@ sub _placeholder_count {

 1;

-

 package DBIx::Custom::SQL::Template::TagProcessors;

 use strict;

@@ -457,13 +447,15 @@ sub expand_update_tag {

     return ($expand, $key_infos);

 }

+package DBIx::Custom::SQL::Template;

+

 1;

 =head1 NAME

 DBIx::Custom::SQL::Template - DBIx::Custom SQL Template

-=head1 Synopsis

+=head1 SYNOPSIS

     my $sql_tmpl = DBIx::Custom::SQL::Template->new;

@@ -472,42 +464,37 @@ DBIx::Custom::SQL::Template - DBIx::Custom SQL Template

     my $query = $sql_template->create_query($tmpl);

-=head1 Accessors

+=head1 ATTRIBUTES

 =head2 tag_processors

-Set and get tag processors

-

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

                                                 $name2 => $tag_processor2);

     $tag_processors = $sql_tmpl->tag_processors;

 =head2 tag_start

-

-Set and get start tag

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

     $tag_start = $sql_tmpl->tag_start;

-tag_start default is '{'

+Default is '{'

 =head2 tag_end

-

-Set and get end tag

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

     $tag_end = $sql_tmpl->tag_start;

-tag_start default is '}'

+Default is '}'

 =head2 tag_syntax

-Set and get tag syntax

-    

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

     $tag_syntax = $sql_tmpl->tag_syntax;

-=head1 Methods

+=head1 METHODS

+

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

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

 =head2 create_query

@@ -625,25 +612,4 @@ The following is update SQL sample

     # Expanded

     $query->sql : "update table set key1 = ?, key2 = ? where key3 = ?;"

-=head1 AUTHOR

-

-Yuki Kimoto, C<< <kimoto.yuki at gmail.com> >>

-

-Github 

-L<http://github.com/yuki-kimoto>

-L<http://github.com/yuki-kimoto/DBIx-Custom-SQL-Template>

-

-Please let know me bag if you find

-Please request me if you want to do something

-

-=head1 COPYRIGHT & LICENSE

-

-Copyright 2009 Yuki Kimoto, all rights reserved.

-

-This program is free software; you can redistribute it and/or modify it

-under the same terms as Perl itself.

-

-

 =cut

-

-1; # End of DBIx::Custom::SQL::Template