27 |
|
|
28 |
#use base qw/WebPAC::Common/; |
#use base qw/WebPAC::Common/; |
29 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
|
use Storable qw/dclone/; |
|
30 |
use Carp qw/confess/; |
use Carp qw/confess/; |
31 |
|
|
32 |
# debugging warn(s) |
# debugging warn(s) |
33 |
my $debug = 0; |
my $debug = 0; |
34 |
|
_debug( $debug ); |
35 |
|
|
36 |
# FIXME |
# FIXME |
37 |
use WebPAC::Normalize::ISBN; |
use WebPAC::Normalize::ISBN; |
263 |
warn "debug level $l",$/ if ($l > 0); |
warn "debug level $l",$/ if ($l > 0); |
264 |
$debug = $l; |
$debug = $l; |
265 |
$WebPAC::Normalize::MARC::debug = $debug; |
$WebPAC::Normalize::MARC::debug = $debug; |
266 |
|
warn "#### MARC::debug = ",dump($WebPAC::Normalize::MARC::debug); |
267 |
} |
} |
268 |
|
|
269 |
=head1 Functions to create C<data_structure> |
=head1 Functions to create C<data_structure> |