projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1499@llin: dpavlin | 2007-11-03 14:31:44 +0100
[webpac2]
/
lib
/
WebPAC
/
Normalize.pm
diff --git
a/lib/WebPAC/Normalize.pm
b/lib/WebPAC/Normalize.pm
index
97759a9
..
f422878
100644
(file)
--- a/
lib/WebPAC/Normalize.pm
+++ b/
lib/WebPAC/Normalize.pm
@@
-1,6
+1,6
@@
package WebPAC::Normalize;
use Exporter 'import';
package WebPAC::Normalize;
use Exporter 'import';
-@EXPORT = qw/
+
our
@EXPORT = qw/
_set_rec _set_lookup
_set_load_row
_get_ds _clean_ds
_set_rec _set_lookup
_set_load_row
_get_ds _clean_ds
@@
-24,6
+24,7
@@
use Exporter 'import';
get set
count
get set
count
+
/;
use warnings;
/;
use warnings;
@@
-37,6
+38,8
@@
use Carp qw/confess/;
# debugging warn(s)
my $debug = 0;
# debugging warn(s)
my $debug = 0;
+use WebPAC::Normalize::ISBN;
+push @EXPORT, ( 'isbn_10', 'isbn_13' );
=head1 NAME
=head1 NAME
@@
-102,9
+105,6
@@
sub data_structure {
die "need row argument" unless ($arg->{row});
die "need normalisation argument" unless ($arg->{rules});
die "need row argument" unless ($arg->{row});
die "need normalisation argument" unless ($arg->{rules});
- # FIXME load this conditionally
-# use WebPAC::Normalize::ISBN;
-
no strict 'subs';
_set_lookup( $arg->{lookup} ) if defined($arg->{lookup});
_set_rec( $arg->{row} );
no strict 'subs';
_set_lookup( $arg->{lookup} ) if defined($arg->{lookup});
_set_rec( $arg->{row} );