@@ -28,8 +28,12 @@ $class->add_format(

 # Methods

 sub utf8_filter_on {

     my $self = shift;

+    

+    # Set utf8 filters

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

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

+    

+    return $self;

 }

 1;

@@ -46,7 +50,23 @@ You can use all methods of L<DBIx::Custom>

 Please see L<DBIx::Custom> documentation

-=head1 Filters

+=head1 Methods

+

+=head2 utf8_filter_on

+

+Encode and decode utf8 filter on

+

+    $self = $self->utf8_filter_on;

+    

+    # Sample

+    $dbi->utf8_filter_on;

+

+This equel to

+

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

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

+

+=head1 Available filters

 =head2 encode_utf8

@@ -66,7 +86,7 @@ This filter is generally used as fetch filter

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

-=head2 Formats

+=head2 Available formats

 strptime formats is available

@@ -82,18 +102,6 @@ You get format as the following

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

-=head1 Methods

-

-=head2 utf8_filter_on

-

-    # Encode and decode utf8 filter on

-    $dbi->utf8_filter_on;

-

-This equel to

-

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

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

-

 =head1 AUTHOR

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

@@ -58,7 +58,7 @@ DBIx::Custom::MySQL - DBIx::Custom MySQL implementation

     $dbi->insert('books', {title => 'perl', author => 'taro'});

     # Update 

-    # same as 'update books set (title = 'aaa', author = 'ken') where id = 5;

+    # same as 'update books set title = 'aaa', author = 'ken' where id = 5;

     $dbi->update('books', {title => 'aaa', author => 'ken'}, {id => 5});

     # Delete

@@ -70,7 +70,7 @@ DBIx::Custom::MySQL - DBIx::Custom MySQL implementation

     # select * from books where ahthor = 'taro'; 

     $dbi->select('books', {author => 'taro'});

-=head1 See DBIx::Custom and DBI::Custom::Basic documentation

+=head1 See DBIx::Custom and DBI::Custom::Basic documentation at first

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

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

@@ -82,14 +82,24 @@ Please see L<DBIx::Custom::Basic> and <DBIx::Custom> documentation.

 =head2 connect

-    This method override DBIx::Custom::connect

+Connect to database

+

+    $self = $self->connect;

-    If database attribute is set, automatically data source is created and connect

+    # Sample

+    $dbi->connect;

+

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

+

+If you set database, host, or port, data source is automatically created and connect

 =head2 last_insert_id

-    # Get last insert id

     $last_insert_id = $self->last_insert_id;

+    

+    # Sample

+    $dbi->insert('books', {title => 'Perl', author => 'taro'});

+    $last_insert_id = $dbi->last_insert_id;

 This is equal to MySQL function

@@ -42,49 +42,56 @@ DBIx::Custom::Query - DBIx::Custom query

     # Execute query

     $dbi->execute($query, $params);

-=head1 OBJECT ACCESSORS

+=head1 Accessors

 =head2 sth

-    # Set and get statement handle

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

-    $sth  = $query->sth;

+Set and get statement handle

+

+    $self = $self->sth($sql);

+    $sth  = $self->sth;

 =head2 sql

-    # Set and get SQL

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

-    $sql  = $query->sql;

+Set and get SQL

+

+    $self = $self->sql($sql);

+    $sql  = $self->sql;

 =head2 bind_filter

-    # Set and get bind filter

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

-    $bind_filter = $query->bind_filter;

+Set and get bind filter

+

+    $self        = $self->bind_filter($bind_filter);

+    $bind_filter = $self->bind_filter;

 =head2 no_bind_filters

-    # Set and get keys of no filtering

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

-    $no_bind_filters = $query->no_bind_filters;

+Set and get keys of no filtering

+

+    $self            = $self->no_bind_filters($no_filters);

+    $no_bind_filters = $self->no_bind_filters;

 =head2 fetch_filter

-    # Set and get fetch filter

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

-    $fetch_filter = $query->fetch_filter;

+Set and get fetch filter

+

+    $self         = $self->fetch_filter($fetch_filter);

+    $fetch_filter = $self->fetch_filter;

 =head2 no_fetch_filters

-    # Set and get keys of no filtering

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

-    $no_fetch_filters = $query->no_fetch_filters;

+Set and get keys of no filtering

+

+    $self             = $self->no_fetch_filters($no_filters);

+    $no_fetch_filters = $self->no_fetch_filters;

 =head2 key_infos

-    # Set and get key informations

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

-    $key_infos = $query->key_infos;

+Set and get key informations

+

+    $self      = $self->key_infos($key_infos);

+    $key_infos = $self->key_infos;

 =head1 AUTHOR

@@ -9,12 +9,14 @@ use Carp 'croak';

 sub _dbi             : Attr {}

 sub sth              : Attr {}

 sub fetch_filter     : Attr {}

-sub no_fetch_filters      : Attr { type => 'array', trigger => sub {

+

+sub no_fetch_filters : Attr { type => 'array', trigger => sub {

     my $self = shift;

     my $no_fetch_filters = $self->no_fetch_filters || [];

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

     $self->_no_fetch_filters_map(\%no_fetch_filters_map);

 }}

+

 sub _no_fetch_filters_map : Attr {default => sub { {} }}

 # Fetch (array)

@@ -197,7 +199,7 @@ Object::Simple->build_class;

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

-=head1 SYNOPSIS

+=head1 Synopsis

     # $result is DBIx::Custom::Result object

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

@@ -207,43 +209,40 @@ DBIx::Custom::Result - DBIx::Custom Resultset

         # do something

     }

-=head1 OBJECT ACCESSORS

+=head1 Accessors

 =head2 sth

-    # Set and Get statement handle

+Set and Get statement handle

+

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

     $sth  = $reuslt->sth

-

-Statement handle is automatically set by DBIx::Custom.

-so you do not set statement handle.

-

-If you need statement handle, you can get statement handle by using this method.

+    

+    # Sample

+    $dbi->sth->errstr

 =head2 fetch_filter

-    # Set and Get fetch filter

+Set and Get fetch filter

+

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

     $fetch_filter = $result->fech_filter;

-Statement handle is automatically set by DBIx::Custom.

-If you want to set your fetch filter, you set it.

-

 =head2 no_fetch_filters

-    # Set and Get no filter keys when fetching

+Set and Get no filter keys when fetching

+

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

     $no_fetch_filters = $result->no_fetch_filters;

-=head1 METHODS

+=head1 Methods

 =head2 fetch

-    # Fetch row as array reference (Scalar context)

-    $row = $result->fetch;

-    

-    # Fetch row as array (List context)

-    @row = $result->fecth

+Fetch a row

+

+    $row = $self->fetch; # array reference

+    @row = $self->fecth; # array

     # Sample

     while (my $row = $result->fetch) {

@@ -252,15 +251,12 @@ If you want to set your fetch filter, you set it.

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

     }

-fetch method is fetch resultset and get row as array or array reference.

-

 =head2 fetch_hash

-    # Fetch row as hash reference (Scalar context)

-    $row = $result->fetch_hash;

-    

-    # Fetch row as hash (List context)

-    %row = $result->fecth_hash

+Fetch row as hash

+

+    $row = $self->fetch_hash; # hash reference

+    %row = $self->fecth_hash; # hash

     # Sample

     while (my $row = $result->fetch_hash) {

@@ -269,85 +265,85 @@ fetch method is fetch resultset and get row as array or array reference.

         my $val2 = $row->{key2};

     }

-fetch_hash method is fetch resultset and get row as hash or hash reference.

-

 =head2 fetch_first

-    # Fetch only first (Scalar context)

-    $row = $result->fetch_first;

+Fetch only first row(Scalar context)

+

+    $row = $self->fetch_first; # array reference

+    @row = $self->fetch_first; # array

-    # Fetch only first (List context)

-    @row = $result->fetch_first;

+    # Sample

+    $row = $result->fetch_first;

-This method fetch only first and finish statement handle

+This method fetch only first row and finish statement handle

 =head2 fetch_hash_first

-    # Fetch only first as hash (Scalar context)

-    $row = $result->fetch_hash_first;

+Fetch only first row as hash

+

+    $row = $self->fetch_hash_first; # hash reference

+    @row = $self->fetch_hash_first; # hash

-    # Fetch only first as hash (Scalar context)

-    @row = $result->fetch_hash_first;

+    # Sample

+    $row = $result->fetch_hash_first;

-This method fetch only first and finish statement handle

+This method fetch only first row and finish statement handle

 =head2 fetch_rows

-    # Fetch multi rows (Scalar context)

-    $rows = $result->fetch_rows($row_count);

-    

-    # Fetch multi rows (List context)

-    @rows = $result->fetch_rows($row_count);

+Fetch rows

+

+    $rows = $self->fetch_rows($row_count); # array ref of array ref

+    @rows = $self->fetch_rows($row_count); # array of array ref

-    # Sapmle 

-    $rows = $result->fetch_rows(10);

+    # Sample 

+    while(my $rows = $result->fetch_rows(10)) {

+        # do someting

+    }

 =head2 fetch_hash_rows

-    # Fetch multi rows as hash (Scalar context)

-    $rows = $result->fetch_hash_rows($row_count);

-    

-    # Fetch multi rows as hash (List context)

-    @rows = $result->fetch_hash_rows($row_count);

+Fetch rows as hash

+

+    $rows = $self->fetch_hash_rows($row_count); # array ref of hash ref

+    @rows = $self->fetch_hash_rows($row_count); # array of hash ref

-    # Sapmle 

-    $rows = $result->fetch_hash_rows(10);

+    # Sample 

+    while(my $rows = $result->fetch_hash_rows(10)) {

+        # do someting

+    }

 =head2 fetch_all

-    # Fetch all row as array ref of array ref (Scalar context)

-    $rows = $result->fetch_all;

-    

-    # Fetch all row as array of array ref (List context)

-    @rows = $result->fecth_all;

+Fetch all rows

+

+    $rows = $self->fetch_all; # array ref of array ref

+    @rows = $self->fecth_all; # array of array ref

     # Sample

     my $rows = $result->fetch_all;

-    my $val0_0 = $rows->[0][0];

-    my $val1_1 = $rows->[1][1];

-

-fetch_all method is fetch resultset and get all rows as array or array reference.

 =head2 fetch_hash_all

-    # Fetch all row as array ref of hash ref (Scalar context)

-    $rows = $result->fetch_hash_all;

-    

-    # Fetch all row as array of hash ref (List context)

-    @rows = $result->fecth_all_hash;

+Fetch all row as array ref of hash ref (Scalar context)

+

+    $rows = $self->fetch_hash_all; # array ref of hash ref

+    @rows = $self->fecth_all_hash; # array of hash ref

     # Sample

     my $rows = $result->fetch_hash_all;

-    my $val0_key1 = $rows->[0]{key1};

-    my $val1_key2 = $rows->[1]{key2};

 =head2 error

-    # Get error infomation

-    $error_messege = $result->error;

-    ($error_message, $error_number, $error_state) = $result->error;

+Get error infomation

+

+    $error_messege = $self->error;

+    ($error_message, $error_number, $error_state) = $self->error;

+    

+    # Sample

+    $error = $result->error;

-You can get get information. This is crenspond to the following.

+You can get get information. This is same as the following.

     $error_message : $result->sth->errstr

     $error_number  : $result->sth->err

@@ -355,24 +351,29 @@ You can get get information. This is crenspond to the following.

 =head2 finish

-    # Finish statement handle

-    $result->finish

+Finish statement handle

+

+    $ret_val = $self->finish

     # Sample

-    my $row = $reuslt->fetch; # fetch only one row

+    my $row = $reuslt->fetch; # fetch a row

     $result->finish

-You can finish statement handle.This is equel to

+This is equel to

     $result->sth->finish;

-=head1 AUTHOR

+=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 & LICENSE

+=head1 Copyright & licence

 Copyright 2009 Yuki Kimoto, all rights reserved.

@@ -70,13 +70,13 @@ DBIx::Custom::SQLite - DBIx::Custom SQLite implementation

     # New

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

-                                       database => 'sample.db');

+                                        database => 'sample');

     # Insert 

     $dbi->insert('books', {title => 'perl', author => 'taro'});

     # Update 

-    # same as 'update books set (title = 'aaa', author = 'ken') where id = 5;

+    # same as 'update books set title = 'aaa', author = 'ken' where id = 5;

     $dbi->update('books', {title => 'aaa', author => 'ken'}, {id => 5});

     # Delete

@@ -95,7 +95,7 @@ DBIx::Custom::SQLite - DBIx::Custom SQLite implementation

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

                  'order by id limit 1');

-=head1 See DBIx::Custom and DBI::Custom::Basic documentation

+=head1 See DBIx::Custom and DBI::Custom::Basic documentation at first

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

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

@@ -103,31 +103,48 @@ 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

+=head1 methods

 =head2 connect

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

+Connect to database

-    # Connect to database

+    $self = $self->connect;

+    

+    # Sample

     $dbi->connect;

-If database attribute is set, automatically data source is created and connect

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

+

+If you set database, data source is automatically created and connect

 =head2 connect_memory

-    # Connect memory database

-    $self = $dbi->connect_memory;

+Connect memory database

+

+    $self = $self->connect_memory;

+    

+    # Sample

+    $dbi->connect_memory;

 =head2 reconnect_memory

-    # Reconnect memory database

+Reconnect to memory databsse

+

+    $self = $self->reconnect_memory;

+    

+    # Sample

     $self = $dbi->reconnect_memory;

 =head2 last_insert_id

-    # Get last insert id

+Get last insert id

+

     $last_insert_id = $self->last_insert_id;

+    

+    # Sample

+    $dbi->insert('books', {title => 'Perl', author => 'taro'});

+    $last_insert_id = $dbi->last_insert_id;

 This is equal to SQLite function

@@ -44,6 +44,7 @@ my $dbi;

 my $decoded_str;

 my $encoded_str;

 my $array;

+my $ret_val;

 use DBIx::Custom::Basic;

@@ -52,9 +53,10 @@ $dbi = DBIx::Custom::Basic->new($NEW_ARGS->{0});

 ok($dbi->filters->{encode_utf8}, "$test : exists default_bind_filter");

 ok($dbi->filters->{decode_utf8}, "$test : exists default_fetch_filter");

-$dbi->utf8_filter_on;

+$ret_val = $dbi->utf8_filter_on;

 is($dbi->bind_filter, $dbi->filters->{encode_utf8}, 'default bind filter');

 is($dbi->fetch_filter, $dbi->filters->{decode_utf8}, 'default fetch filter');

+is(ref $ret_val, 'DBIx::Custom::Basic', "$test : retern value");

 $decoded_str = 'あ';

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