|
Lines 121-126
sub new {
Link Here
|
| 121 |
return $self; |
121 |
return $self; |
| 122 |
} |
122 |
} |
| 123 |
|
123 |
|
|
|
124 |
=head3 options |
| 125 |
|
| 126 |
$processor->options( $new_options ); |
| 127 |
|
| 128 |
Overloaded accessor, that spreads the new options to the filter objects when set |
| 129 |
|
| 130 |
=cut |
| 131 |
|
| 132 |
sub options { |
| 133 |
my ( $self, $options ) = @_; |
| 134 |
|
| 135 |
if ( $options ) { # Set |
| 136 |
foreach my $filter ( @{$self->filters} ) { |
| 137 |
$filter->params->{options} = $options; |
| 138 |
} |
| 139 |
|
| 140 |
$self->{options} = $options; |
| 141 |
return $self; |
| 142 |
} |
| 143 |
|
| 144 |
return $self->{options}; |
| 145 |
} |
| 146 |
|
| 124 |
=head2 bind |
147 |
=head2 bind |
| 125 |
|
148 |
|
| 126 |
$normalizer->bind($record) |
149 |
$normalizer->bind($record) |
| 127 |
- |
|
|