added --marcxml flag

[webpac2] / lib / WebPAC / Normalize.pm

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index ae13f62..d2a5865 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -123,9 +123,9 @@ sub data_structure {
        $load_row_coderef = $arg->{load_row_coderef};
 
        no strict 'subs';
-       no warnings 'redefine';
+       no warnings 'all';
        eval "$arg->{rules};";
-       die "error evaling $arg->{rules}: $@\n" if ($@);
+       die "error evaling [$@] using rules " . $arg->{rules} . "\n" if ($@);
 
        return _get_ds();
 }
@@ -145,7 +145,7 @@ sub _set_ds {
        $WebPAC::Normalize::MARC::rec = $rec;
 }
 
-=head2
+=head2 _get_rec
 
   my $rec = _get_rec();
 
@@ -153,6 +153,14 @@ sub _set_ds {
 
 sub _get_rec { $rec };
 
+=head2 _set_rec
+
+  _set_rec( $rec );
+
+=cut
+
+sub _set_rec { $rec = $_[0] }
+
 =head2 _set_config
 
 Set current config hash