123 |
$load_row_coderef = $arg->{load_row_coderef}; |
$load_row_coderef = $arg->{load_row_coderef}; |
124 |
|
|
125 |
no strict 'subs'; |
no strict 'subs'; |
126 |
no warnings 'redefine'; |
no warnings 'all'; |
127 |
eval "$arg->{rules};"; |
eval "$arg->{rules};"; |
128 |
die "error evaling $arg->{rules}: $@\n" if ($@); |
die "error evaling [$@] using rules " . $arg->{rules} . "\n" if ($@); |
129 |
|
|
130 |
return _get_ds(); |
return _get_ds(); |
131 |
} |
} |
145 |
$WebPAC::Normalize::MARC::rec = $rec; |
$WebPAC::Normalize::MARC::rec = $rec; |
146 |
} |
} |
147 |
|
|
148 |
=head2 |
=head2 _get_rec |
149 |
|
|
150 |
my $rec = _get_rec(); |
my $rec = _get_rec(); |
151 |
|
|
153 |
|
|
154 |
sub _get_rec { $rec }; |
sub _get_rec { $rec }; |
155 |
|
|
156 |
|
=head2 _set_rec |
157 |
|
|
158 |
|
_set_rec( $rec ); |
159 |
|
|
160 |
|
=cut |
161 |
|
|
162 |
|
sub _set_rec { $rec = $_[0] } |
163 |
|
|
164 |
=head2 _set_config |
=head2 _set_config |
165 |
|
|
166 |
Set current config hash |
Set current config hash |