my %filter_spec;
sub filter {
- my ($class, $key, $value, $prefix) = @_;
+ my ($class, $key, $value, $prefix, $path) = @_;
my $filters = _get_filters($class);
- return ($key, $value) unless $filters->{$key};
+ return ($prefix . $key, $value, $path) unless $filters->{$key};
return $filters->{$key}->($key, $value, $prefix);
}