301 |
|
|
302 |
=cut |
=cut |
303 |
|
|
304 |
|
my $warn_once; |
305 |
|
|
306 |
sub parse { |
sub parse { |
307 |
my $self = shift; |
my $self = shift; |
308 |
|
|
383 |
$out = $self->{'filter'}->{$filter_name}->(@filter_args); |
$out = $self->{'filter'}->{$filter_name}->(@filter_args); |
384 |
return unless(defined($out)); |
return unless(defined($out)); |
385 |
$log->debug("filter result: $out"); |
$log->debug("filter result: $out"); |
386 |
} else { |
} elsif (! $warn_once->{$filter_name}) { |
387 |
$log->warn("trying to use undefined filter $filter_name"); |
$log->warn("trying to use undefined filter $filter_name"); |
388 |
|
$warn_once->{$filter_name}++; |
389 |
} |
} |
390 |
} |
} |
391 |
|
|