@@ -410,6 +410,17 @@ sub _build_bind_values {

     # binding values

     my @bind_values;

+

+    # Filter

+    $filter ||= {};

+    

+    # Parameter

+    $params ||= {};

+    

+    # Check filter

+    $self->_check_filter($self->filters, $filter,

+                         $self->default_bind_filter, $params)

+      if $self->filter_check;

     # Build bind values

     my $count = {};

@@ -423,9 +434,6 @@ sub _build_bind_values {

                   ? $params->{$column}->[$count->{$column} || 0]

                   : $params->{$column};

-        # Filter

-        $filter ||= {};

-        

         # Filter name

         my $fname = $filter->{$column} || $self->default_bind_filter || '';

@@ -454,6 +462,27 @@ sub _build_bind_values {

     return \@bind_values;

 }

+sub _check_filter {

+    my ($self, $filters, $filter, $default_filter, $params) = @_;

+    

+    # Filter name not exists

+    foreach my $fname (values %$filter) {

+        croak qq{Bind filter "$fname" is not registered}

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

+    }

+    

+    # Default filter name not exists

+    croak qq{Default bind filter "$default_filter" is not registered}

+      if $default_filter && ! exists $filters->{$default_filter};

+    

+    # Column name not exists

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

+        

+        croak qq{Column name "$column" in bind filter is not found in paramters}

+          unless exists $params->{$column};

+    }

+}

+

 =head1 NAME

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

@@ -513,11 +513,20 @@ eval{$result->fetch_hash_first};

 ok(!$@, "$test : hash : filter_check off");

-test 'filter_check in binding parameter';

+test 'filter_check in parameter binding';

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

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

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

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

+eval{$dbi->select(table => 'table1')};

+like($@, qr/\QDefault bind filter "not_exists" is not registered/, "$test : default_bind_filter");

+$dbi->default_bind_filter(undef);

+eval{$dbi->select(table => 'table1', filter => {key1 => 'not_exists'})};

+like($@, qr/\QBind filter "not_exists" is not registered/, "$test : bind_filter");

+eval{$dbi->select(table => 'table1', filter => {not_exists => 'encode_utf8'})};

+like($@, qr/\QColumn name "not_exists" in bind filter is not found in paramters/,

+     "$test : fetch_filter");