my %filter_spec;
sub filter {
- my ($class, $key, $value, $prefix) = @_;
+ my ($class, $key, $value, $prefix, $path) = @_;
my $filters = _get_filters($class);
- return ($prefix . $key, $value) unless $filters->{$key};
+ return ($prefix . $key, $value, $path) unless $filters->{$key};
return $filters->{$key}->($key, $value, $prefix);
}
=head1 NAME
-SL::Helper::Sorted - Manager mixin for filtered results.
+SL::DB::Helper::Filtered - Manager mixin for filtered results.
=head1 SYNOPSIS
In the manager:
- use SL::Helper::Filtered;
+ use SL::DB::Helper::Filtered;
__PACKAGE__->add_filter_specs(
custom_filter_name => sub {
=item C<filter $key, $value, $prefix>
-Tells the manager to pply custom filters. If none is registered for C<$key>,
+Tells the manager to apply custom filters. If none are registered for C<$key>,
returns C<$key, $value>.
Otherwise the filter code is called.