... | ... |
@@ -238,8 +238,8 @@ sub _build_bind_values { |
238 | 238 |
if (ref $key eq 'ARRAY') { |
239 | 239 |
if ($bind_filter && !$no_bind_filters_map->{$original_key}) { |
240 | 240 |
push @bind_values, |
241 |
- $bind_filter->($root_params->[$key->[0]], |
|
242 |
- $original_key, $table, $column); |
|
241 |
+ $bind_filter->($original_key, $root_params->[$key->[0]], |
|
242 |
+ $table, $column); |
|
243 | 243 |
} |
244 | 244 |
else { |
245 | 245 |
push @bind_values, scalar $root_params->[$key->[0]]; |
... | ... |
@@ -249,8 +249,8 @@ sub _build_bind_values { |
249 | 249 |
next ACCESS_KEYS unless exists $root_params->{$key}; |
250 | 250 |
if ($bind_filter && !$no_bind_filters_map->{$original_key}) { |
251 | 251 |
push @bind_values, |
252 |
- $bind_filter->($root_params->{$key}, |
|
253 |
- $original_key, $table, $column); |
|
252 |
+ $bind_filter->($original_key, $root_params->{$key}, |
|
253 |
+ $table, $column); |
|
254 | 254 |
} |
255 | 255 |
else { |
256 | 256 |
push @bind_values, scalar $root_params->{$key}; |
... | ... |
@@ -444,38 +444,38 @@ If database is already disconnected, this method do noting. |
444 | 444 |
# Sample |
445 | 445 |
$dbi->add_filter( |
446 | 446 |
decode_utf8 => sub { |
447 |
- my $value = shift; |
|
447 |
+ my ($key, $value, $table, $column) = @_; |
|
448 | 448 |
return Encode::decode('UTF-8', $value); |
449 | 449 |
}, |
450 | 450 |
datetime_to_string => sub { |
451 |
- my $value = shift; |
|
451 |
+ my ($key, $value, $table, $column) = @_; |
|
452 | 452 |
return $value->strftime('%Y-%m-%d %H:%M:%S') |
453 | 453 |
}, |
454 | 454 |
default_bind_filter => sub { |
455 |
- my ($value, $key, $filters) = @_; |
|
455 |
+ my ($key, $value, $table, $column) = @_; |
|
456 | 456 |
if (ref $value eq 'Time::Piece') { |
457 |
- return $filters->{datetime_to_string}->($value); |
|
457 |
+ return $dbi->filters->{datetime_to_string}->($value); |
|
458 | 458 |
} |
459 | 459 |
else { |
460 |
- return $filters->{decode_utf8}->($value); |
|
460 |
+ return $dbi->filters->{decode_utf8}->($value); |
|
461 | 461 |
} |
462 | 462 |
}, |
463 | 463 |
|
464 | 464 |
encode_utf8 => sub { |
465 |
- my $value = shift; |
|
465 |
+ my ($key, $value) = @_; |
|
466 | 466 |
return Encode::encode('UTF-8', $value); |
467 | 467 |
}, |
468 | 468 |
string_to_datetime => sub { |
469 |
- my $value = shift; |
|
469 |
+ my ($key, $value) = @_; |
|
470 | 470 |
return DateTime::Format::MySQL->parse_datetime($value); |
471 | 471 |
}, |
472 | 472 |
default_fetch_filter => sub { |
473 |
- my ($value, $key, $filters, $type, $sth, $i) = @_; |
|
473 |
+ my ($key, $value, $type, $sth, $i) = @_; |
|
474 | 474 |
if ($type eq 'DATETIME') { |
475 |
- return $self->filters->{string_to_datetime}->($value); |
|
475 |
+ return $dbi->filters->{string_to_datetime}->($value); |
|
476 | 476 |
} |
477 | 477 |
else { |
478 |
- return $self->filters->{encode_utf8}->($value); |
|
478 |
+ return $dbi->filters->{encode_utf8}->($value); |
|
479 | 479 |
} |
480 | 480 |
} |
481 | 481 |
); |