@@ -1,3 +1,5 @@

+0.1636

+  added tests and cleanup

 0.1635

   renamed iterate_all_columns to each_column

 0.1634

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

 package DBIx::Custom;

-our $VERSION = '0.1635';

+our $VERSION = '0.1636';

 use 5.008001;

 use strict;

@@ -20,17 +20,36 @@ __PACKAGE__->attr(

     [qw/data_source dbh password user/],

     dbi_options => sub { {} },

     cache => 1,

+    filter_check  => 1,

+    query_builder => sub {DBIx::Custom::QueryBuilder->new},

+    result_class  => 'DBIx::Custom::Result',

+    table_class   => 'DBIx::Custom::Table'

+);

+

+__PACKAGE__->attr(

+    cache_method => sub {

+        sub {

+            my $self = shift;

+            

+            $self->{_cached} ||= {};

+            

+            if (@_ > 1) {

+                $self->{_cached}{$_[0]} = $_[1] 

+            }

+            else {

+                return $self->{_cached}{$_[0]}

+            }

+        }

+    }

+);

+

+__PACKAGE__->attr(

     filters => sub {

         {

             encode_utf8 => sub { encode_utf8($_[0]) },

             decode_utf8 => sub { decode_utf8($_[0]) }

         }

-    },

-    

-    filter_check  => 1,

-    query_builder => sub {DBIx::Custom::QueryBuilder->new},

-    result_class  => 'DBIx::Custom::Result',

-    table_class   => 'DBIx::Custom::Table'

+    }

 );

 # DBI methods

@@ -64,71 +83,67 @@ sub AUTOLOAD {

 }

 sub apply_filter {

-    my $self = shift;

-    

+    my ($self, $table, @cinfos) = @_;

+

+    # Initialize filters

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

+    $self->{filter}{out} ||= {};

+    $self->{filter}{in} ||= {};

-    # Table and column informations

-    my ($table, @cs) = @_;

-    

-    if (@cs) {

+    # Create filters

+    my $usage = "Usage: \$dbi->apply_filter(" .

+                "TABLE, COLUMN1, {in => INFILTER1, out => OUTFILTER1}, " .

+                "COLUMN2, {in => INFILTER2, out => OUTFILTER2}, ...)";

+

+    for (my $i = 0; $i < @cinfos; $i += 2) {

-        # Initialize filters

-        $self->{filter}{out} ||= {};

-        $self->{filter}{in} ||= {};

+        # Column

+        my $column = $cinfos[$i];

-        # Create filters

-        for (my $i = 0; $i < @cs; $i += 2) {

-            

-            # Column

-            my $column = $cs[$i];

-            

-            # Filter

-            my $filter = $cs[$i + 1] || {};

-            my $in_filter = delete $filter->{in};

-            my $out_filter = delete $filter->{out};

-            croak "Usage \$dbi->apply_filter(" .

-                  "TABLE, COLUMN, {in => INFILTER, out => OUTFILTER}, ...)"

-              if ref $filter ne 'HASH' || keys %$filter;

-            

-            # Out filter

-            if (ref $out_filter eq 'CODE') {

-                $self->{filter}{out}{$table}{$column}

-                  = $out_filter;

-                $self->{filter}{out}{$table}{"$table.$column"}

-                  = $out_filter;

-            }

-            elsif (defined $out_filter) {

-                croak qq{"$out_filter" is not registered}

-                  unless exists $self->filters->{$out_filter};

-                

-                $self->{filter}{out}{$table}{$column}

-                  = $self->filters->{$out_filter};

-                $self->{filter}{out}{$table}{"$table.$column"}

-                  = $self->filters->{$out_filter};

-            }

+        # Filter

+        my $filter = $cinfos[$i + 1] || {};

+        croak $usage unless  ref $filter eq 'HASH';

+        foreach my $ftype (keys %$filter) {

+            croak $usage unless $ftype eq 'in' || $ftype eq 'out'; 

+        }

+        my $in_filter = $filter->{in};

+        my $out_filter = $filter->{out};

+        

+        # Out filter

+        if (ref $out_filter eq 'CODE') {

+            $self->{filter}{out}{$table}{$column}

+              = $out_filter;

+            $self->{filter}{out}{$table}{"$table.$column"}

+              = $out_filter;

+        }

+        elsif (defined $out_filter) {

+            croak qq{Filter "$out_filter" is not registered}

+              unless exists $self->filters->{$out_filter};

-            # In filter

-            if (ref $in_filter eq 'CODE') {

-                $self->{filter}{in}{$table}{$column}

-                  = $in_filter;

-                $self->{filter}{in}{$table}{"$table.$column"}

-                  = $in_filter;

-            }

-            elsif (defined $in_filter) {

-                croak qq{"$in_filter" is not registered}

-                  unless exists $self->filters->{$in_filter};

-                $self->{filter}{in}{$table}{$column}

-                  = $self->filters->{$in_filter};

-                $self->{filter}{in}{$table}{"$table.$column"}

-                  = $self->filters->{$in_filter};

-            }

+            $self->{filter}{out}{$table}{$column}

+              = $self->filters->{$out_filter};

+            $self->{filter}{out}{$table}{"$table.$column"}

+              = $self->filters->{$out_filter};

         }

-        return $self;

+        # In filter

+        if (ref $in_filter eq 'CODE') {

+            $self->{filter}{in}{$table}{$column}

+              = $in_filter;

+            $self->{filter}{in}{$table}{"$table.$column"}

+              = $in_filter;

+        }

+        elsif (defined $in_filter) {

+            croak qq{Filter "$in_filter" is not registered}

+              unless exists $self->filters->{$in_filter};

+            $self->{filter}{in}{$table}{$column}

+              = $self->filters->{$in_filter};

+            $self->{filter}{in}{$table}{"$table.$column"}

+              = $self->filters->{$in_filter};

+        }

     }

-    return $self->{filter};

+    return $self;

 }

 sub helper {

@@ -142,35 +157,12 @@ sub helper {

 }

 sub connect {

-    my $proto = shift;

+    my $self = ref $_[0] ? shift : shift->SUPER::new(@_);;

-    my $self;

-    # Create

-    if (my $class = ref $proto) {

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

-        $self = $proto;

-        

-        foreach my $attr (keys %$args) {

-            $self->{$attr} = $args->{$attr};

-        }

-        

-        # Check attribute names

-        my @attrs = keys %$self;

-        foreach my $attr (@attrs) {

-            croak qq{"$attr" is invalid attribute name}

-              unless $self->can($attr);

-        }

-    }

-    else {

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

-    }

-    

-    # Information

+    # Attributes

     my $data_source = $self->data_source;

-    

-    croak qq{"data_source" must be specified to connect method"}

+    croak qq{"data_source" must be specified to connect()"}

       unless $data_source;

-    

     my $user        = $self->user;

     my $password    = $self->password;

     my $dbi_options = $self->dbi_options || {};

@@ -333,7 +325,7 @@ sub execute{

             $f->{$column} = undef;

         }

         elsif (ref $fname ne 'CODE') {

-          croak qq{"$fname" is not registered"}

+          croak qq{Filter "$fname" is not registered"}

             unless exists $self->filters->{$fname};

           $f->{$column} = $self->filters->{$fname};

@@ -739,22 +731,6 @@ sub _croak {

     }

 }

-# Deprecated

-__PACKAGE__->attr(cache_method => sub {

-    sub {

-        my $self = shift;

-        

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

-        

-        if (@_ > 1) {

-            $self->{_cached}{$_[0]} = $_[1] 

-        }

-        else {

-            return $self->{_cached}{$_[0]}

-        }

-    }

-});

-

 sub default_bind_filter {

     my $self = shift;

@@ -765,7 +741,7 @@ sub default_bind_filter {

             $self->{default_out_filter} = undef;

         }

         else {

-            croak qq{"$fname" is not registered}

+            croak qq{Filter "$fname" is not registered}

               unless exists $self->filters->{$fname};

             $self->{default_out_filter} = $self->filters->{$fname};

@@ -778,14 +754,15 @@ sub default_bind_filter {

 sub default_fetch_filter {

     my $self = shift;

-    my $fname = $_[0];

     if (@_) {

+        my $fname = $_[0];

+

         if (@_ && !$fname) {

             $self->{default_in_filter} = undef;

         }

         else {

-            croak qq{"$fname" is not registered}

+            croak qq{Filter "$fname" is not registered}

               unless exists $self->filters->{$fname};

             $self->{default_in_filter} = $self->filters->{$fname};

@@ -794,7 +771,7 @@ sub default_fetch_filter {

         return $self;

     }

-    return $self->{default_in_filter}

+    return $self->{default_in_filter};

 }

 1;

@@ -1433,18 +1410,6 @@ B<Example:>

 Create a new L<DBIx::Custom::Where> object.

-=head2 C<(deprecated) default_bind_filter>

-

-    my $default_bind_filter = $dbi->default_bind_filter;

-    $dbi                    = $dbi->default_bind_filter($fname);

-

-Default filter when parameter binding is executed.

-

-=head2 C<(deprecated) default_fetch_filter>

-

-    my $default_fetch_filter = $dbi->default_fetch_filter;

-    $dbi = $dbi->default_fetch_filter($fname);

-

 =head2 C<(deprecated) cache_method>

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

@@ -355,50 +355,6 @@ This is overwrite applied filter.

 B<Filter examples>

-MySQL

-

-    # Time::Piece object to DATETIME format

-    tp_to_datetime => sub {

-        return shift->strftime('%Y-%m-%d %H:%M:%S');

-    }

-    

-    # Time::Piece object to DATE format

-    tp_to_date => sub {

-        return shift->strftime('%Y-%m-%d');

-    },

-    

-    # DATETIME to Time::Piece object

-    datetime_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d %H:%M:%S');

-    }

-    

-    # DATE to Time::Piece object

-    date_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d');

-    }

-

-SQLite

-    

-    # Time::Piece object to DATETIME format

-    tp_to_datetime => sub {

-        return shift->strftime('%Y-%m-%d %H:%M:%S');

-    }

-    

-    # Time::Piece object to DATE format

-    tp_to_date => sub {

-        return shift->strftime('%Y-%m-%d');

-    },

-    

-    # DATETIME to Time::Piece object

-    datetime_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d %H:%M:%S');

-    }

-    

-    # DATE to Time::Piece object

-    date_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d');

-    }

-

 =head2 6.Create table object

 You can create table object which have methods.

@@ -542,38 +498,4 @@ These method can be called from L<DBIx::Custom> object directory.

 L<DBIx::Custom Wiki|https://github.com/yuki-kimoto/DBIx-Custom/wiki> - Many useful examples

-=head3 Limit clause

-    

-    # {limit COUNT OFFSET}

-    select * from book {limit 1 0};

-

-SQLite

-

-    $dbi->register_tag_processor(

-        limit => sub {

-            my ($count, $offset) = @_;

-            

-            my $s = '';

-            $s .= "limit $count";

-            $s .= " offset $offset" if defined $offset;

-            

-            return [$s, []];

-        }

-    );

-

-MySQL

-

-    $dbi->register_tag_processor(

-        limit => sub {

-            my ($count, $offset) = @_;

-            

-            my $s = '';

-            $offset = 0 unless defined $offset;

-            $s .= "limit $offset";

-            $s .= ", $count";

-            

-            return [$s, []];

-        }

-    );

-

 =cut

@@ -569,52 +569,6 @@ C<delete()>、C<select()>

         filter => {title => 'encode_utf8'}

     );

-B<フィルタのサンプル>

-

-MySQL

-

-    # Time::Piece object to DATETIME format

-    tp_to_datetime => sub {

-        return shift->strftime('%Y-%m-%d %H:%M:%S');

-    }

-    

-    # Time::Piece object to DATE format

-    tp_to_date => sub {

-        return shift->strftime('%Y-%m-%d');

-    }

-    

-    # DATETIME to Time::Piece object

-    datetime_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d %H:%M:%S');

-    }

-    

-    # DATE to Time::Piece object

-    date_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d');

-    }

-

-SQLite

-    

-    # Time::Piece object to DATETIME format

-    tp_to_datetime => sub {

-        return shift->strftime('%Y-%m-%d %H:%M:%S');

-    }

-    

-    # Time::Piece object to DATE format

-    tp_to_date => sub {

-        return shift->strftime('%Y-%m-%d');

-    }

-    

-    # DATETIME to Time::Piece object

-    datetime_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d %H:%M:%S');

-    }

-    

-    # DATE to Time::Piece object

-    date_to_tp => sub {

-        return Time::Piece->strptime(shift, '%Y-%m-%d');

-    }

-

 =head3 行のフェッチ時のフィルタリング

 行をフェッチするときのフィルタも設定することができます。

@@ -36,8 +36,8 @@ DBIx::Custom::MySQL - DEPRECATED!

 =head1 CAUTION

-B<This module is deprecated now> because This module is not very useful

-I expected. Please use DBIx::Custom instead.>

+B<This module is deprecated now> because This module is less useful

+than I expected. Please use DBIx::Custom instead.>

 =head1 SYNOPSYS

@@ -18,7 +18,7 @@ sub filter {

         foreach my $column (keys %$filter) {

             my $fname = $filter->{$column};

             unless (ref $fname eq 'CODE') {

-              croak qq{"$fname" is not registered"}

+              croak qq{Filter "$fname" is not registered"}

                 unless exists $self->filters->{$fname};

               $filter->{$column} = $self->filters->{$fname};

@@ -42,7 +42,7 @@ sub end_filter {

         foreach my $column (keys %$end_filter) {

             my $fname = $end_filter->{$column};

             unless (ref $fname eq 'CODE') {

-              croak qq{"$fname" is not registered"}

+              croak qq{Filter "$fname" is not registered"}

                 unless exists $self->filters->{$fname};

               $end_filter->{$column} = $self->filters->{$fname};

@@ -227,7 +227,7 @@ sub default_filter {

             $self->{default_filter} = undef;

         }

         else {

-            croak qq{"$fname" is not registered}

+            croak qq{Filter "$fname" is not registered}

               unless exists $self->filters->{$fname};

             $self->{default_filter} = $self->filters->{$fname};

@@ -398,11 +398,4 @@ Filters.

 These each filters override the filters applied by C<apply_filter> of

 L<DBIx::Custom>.

-=head2 C<(deprecated) default_filter>

-

-    my $default_filter = $result->default_filter;

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

-

-Default filter when a row is fetched.

-

 =cut

@@ -42,8 +42,8 @@ DBIx::Custom::SQLite - DEPRECATED!

 =head1 CAUTION

-B<This module is deprecated now> because This module is not very useful

-I expected. Please use DBIx::Custom instead.>

+B<This module is deprecated now> because This module is less useful

+than I expected. Please use DBIx::Custom instead.>

 =head1 SYNOPSYS

@@ -42,6 +42,7 @@ sub helper {

 sub new {

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

+    # Methods

     my @methods = qw/insert update update_all delete delete_all select/;

     foreach my $method (@methods) {

         $self->helper(

@@ -51,6 +52,7 @@ sub new {

             }

         );

     }

+    

     return $self;

 }

@@ -22,47 +22,57 @@ __PACKAGE__->attr(

 sub to_string {

     my $self = shift;

+    # Clause

     my $clause = $self->clause;

     $clause = ['and', $clause] unless ref $clause eq 'ARRAY';

     $clause->[0] = 'and' unless @$clause;

+    # Parse

     my $where = [];

     my $count = {};

-    $self->_forward($clause, $where, $count, 'and');

-

-    unshift @$where, 'where' if @$where;

+    $self->_parse($clause, $where, $count, 'and');

+    # Stringify

+    unshift @$where, 'where' if @$where;

     return join(' ', @$where);

 }

 our %VALID_OPERATIONS = map { $_ => 1 } qw/and or/;

-sub _forward {

+sub _parse {

     my ($self, $clause, $where, $count, $op) = @_;

+    # Array

     if (ref $clause eq 'ARRAY') {

+        

+        # Start

         push @$where, '(';

+        # Operation

         my $op = $clause->[0] || '';

-        

         croak qq{"$op" is invalid operation}

           unless $VALID_OPERATIONS{$op};

-          

+        

+        # Parse internal clause

         for (my $i = 1; $i < @$clause; $i++) {

-            my $pushed = $self->_forward($clause->[$i], $where, $count, $op);

+            my $pushed = $self->_parse($clause->[$i], $where, $count, $op);

             push @$where, $op if $pushed;

         }

-        

         pop @$where if $where->[-1] eq $op;

+        # Undo

         if ($where->[-1] eq '(') {

             pop @$where;

             pop @$where;

         }

+        

+        # End

         else {

             push @$where, ')';

         }

     }

+    

+    # String

     else {

         # Column

@@ -71,11 +81,11 @@ sub _forward {

           unless @$columns == 1;

         my $column = $columns->[0];

-        # Count up

+        # Column count up

         my $count = ++$count->{$column};

-        # Push element

-        my $param    = $self->param;

+        # Push

+        my $param = $self->param;

         my $pushed;

         if (exists $param->{$column}) {

             if (ref $param->{$column} eq 'ARRAY') {

@@ -85,7 +95,6 @@ sub _forward {

                 $pushed = 1;

             }

         }

-        

         push @$where, $clause if $pushed;

         return $pushed;

@@ -100,9 +109,7 @@ DBIx::Custom::Where - Where clause

 =head1 SYNOPSYS

-    $where = DBIx::Custom::Where->new;

-    

-    my $sql = "select * from book $where";

+    my $where = DBIx::Custom::Where->new;

 =head1 ATTRIBUTES

@@ -120,7 +127,10 @@ DBIx::Custom::Where - Where clause

         ['and', '{= title}', ['or', '{< date}', '{> date}']]

     );

-Where clause.

+Where clause. Above one is expanded to the following SQL by to_string

+If all parameter names is exists.

+

+    "where ( {= title} and ( {< date} or {> date} ) )"

 =head2 C<to_string>

@@ -268,7 +268,7 @@ $dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2, key3 => 3, key4

 $dbi->insert(table => 'table1', param => {key1 => 6, key2 => 7, key3 => 8, key4 => 9, key5 => 10});

 $dbi->register_filter(twice => sub { $_[0] * 2 });

 $dbi->update(table => 'table1', param => {key2 => 11}, where => {key1 => 1},

-              filter => {key2 => 'twice'});

+              filter => {key2 => sub { $_[0] * 2 }});

 $result = $dbi->execute($SELECT_SOURCES->{0});

 $rows   = $result->fetch_hash_all;

 is_deeply($rows, [{key1 => 1, key2 => 22, key3 => 3, key4 => 4, key5 => 5},

@@ -707,6 +707,14 @@ $dbi->table('table2', ppp => sub {

 });

 is($dbi->table('table2')->ppp, 'table2', "$test : helper");

+$dbi->table('table2', {qqq => sub {

+    my $self = shift;

+    

+    return $self->name;

+}});

+is($dbi->table('table2')->qqq, 'table2', "$test : helper");

+

+

 test 'limit';

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

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

@@ -782,9 +790,10 @@ $result->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 });

 $row = $result->fetch_first;

 is_deeply($row, [6, 40]);

+$dbi->register_filter(five_times => sub { $_[0] * 5 });

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

 $result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });

-$result->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 });

+$result->end_filter({key1 => sub { $_[0] * 3 }, key2 => 'five_times' });

 $row = $result->fetch_hash_first;

 is_deeply($row, {key1 => 6, key2 => 40});

@@ -911,6 +920,22 @@ $result = $dbi->select(

 $row = $result->fetch_hash_all;

 is_deeply($row, [{key1 => 1, key2 => 2}]);

+$where = $dbi->where

+             ->clause('{= key1}')

+             ->param({key1 => 1});

+$result = $dbi->select(

+    table => 'table1',

+    where => $where,

+);

+$row = $result->fetch_hash_all;

+is_deeply($row, [{key1 => 1, key2 => 2}]);

+

+$where = $dbi->where

+             ->clause('{= key1} {= key2}')

+             ->param({key1 => 1});

+eval{$where->to_string};

+like($@, qr/one column/);

+

 test 'dbi_options default';

 $dbi = DBIx::Custom->new;

 is_deeply($dbi->dbi_options, {});

@@ -932,3 +957,93 @@ eval {$dbi->delete};

 like($@, qr/table/);

 eval {$dbi->select};

 like($@, qr/table/);

+

+

+test 'more tests';

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

+eval{$dbi->apply_filter('table', 'column', [])};

+like($@, qr/apply_filter/);

+

+eval{$dbi->apply_filter('table', 'column', {outer => 2})};

+like($@, qr/apply_filter/);

+

+$dbi->apply_filter(

+

+);

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

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

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

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

+$dbi->apply_filter('table1', 'key2', 

+                   {in => sub { $_[0] * 3 }, out => sub { $_[0] * 2 }});

+$rows = $dbi->select(table => 'table1', where => {key2 => 1})->fetch_hash_all;

+is_deeply($rows, [{key1 => 1, key2 => 6}]);

+

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

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

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

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

+$dbi->apply_filter('table1', 'key2', {});

+$rows = $dbi->select(table => 'table1', where => {key2 => 2})->fetch_hash_all;

+is_deeply($rows, [{key1 => 1, key2 => 2}]);

+

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

+eval {$dbi->apply_filter('table1', 'key2', {out => 'no'})};

+like($@, qr/not registered/);

+eval {$dbi->apply_filter('table1', 'key2', {in => 'no'})};

+like($@, qr/not registered/);

+$dbi->helper({one => sub { 1 }});

+is($dbi->one, 1);

+

+eval{DBIx::Custom->connect()};

+like($@, qr/connect/);

+

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

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

+$dbi->register_filter(twice => sub { $_[0] * 2 });

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

+             filter => {key1 => 'twice'});

+$row = $dbi->select(table => 'table1')->fetch_hash_first;

+is_deeply($row, {key1 => 2, key2 => 2});

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

+             filter => {key1 => 'no'}) };

+like($@, qr//);

+$dbi->table_class('!!!!');

+eval {$dbi->table};

+like($@, qr/Invalid table/);

+

+$dbi->table_class('NOTEXIST');

+eval {$dbi->table};

+ok($@);

+$dbi->register_filter(one => sub { });

+$dbi->default_fetch_filter('one');

+ok($dbi->default_fetch_filter);

+$dbi->default_bind_filter('one');

+ok($dbi->default_bind_filter);

+eval{$dbi->default_fetch_filter('no')};

+like($@, qr/not registered/);

+eval{$dbi->default_bind_filter('no')};

+like($@, qr/not registered/);

+$dbi->default_bind_filter(undef);

+ok(!defined $dbi->default_bind_filter);

+$dbi->default_fetch_filter(undef);

+ok(!defined $dbi->default_fetch_filter);

+eval {$dbi->execute('select * from table1 {= author') };

+like($@, qr/Tag not finished/);

+

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

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

+$dbi->register_filter(one => sub { 1 });

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

+eval {$result->filter(key1 => 'no')};

+like($@, qr/not registered/);

+eval {$result->end_filter(key1 => 'no')};

+like($@, qr/not registered/);

+$result->default_filter(undef);

+ok(!defined $result->default_filter);

+$result->default_filter('one');

+is($result->default_filter->(), 1);

+

+$dbi->table('book');

+eval{$dbi->table('book')->no_exists};

+like($@, qr/locate/);

@@ -15,4 +15,4 @@ eval "use Pod::Coverage $min_pc";

 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"

     if $@;

-all_pod_coverage_ok();

+all_pod_coverage_ok({also_private => [qr/default_bind_filter|default_fetch_filter|default_filter/]});