@@ -, +, @@ filters $ kshell k$ prove t/RecordProcessor.t --- Koha/RecordProcessor.pm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) --- a/Koha/RecordProcessor.pm +++ a/Koha/RecordProcessor.pm @@ -121,6 +121,29 @@ sub new { return $self; } +=head3 options + + $processor->options( $new_options ); + +Overloaded accessor, that spreads the new options to the filter objects when set + +=cut + +sub options { + my ( $self, $options ) = @_; + + if ( $options ) { # Set + foreach my $filter ( @{$self->filters} ) { + $filter->params->{options} = $options; + } + + $self->{options} = $options; + return $self; + } + + return $self->{options}; +} + =head2 bind $normalizer->bind($record) --