use strict;
use Carp;
-use Data::Dumper;
+use Data::Dump qw/dump/;
BEGIN {
use Exporter ();
# skip to next record
my $o = substr($leader,0,5);
+ warn "# in record ", $self->{count}," record length isn't number but: ",dump($o),"\n" unless $o =~ m/^\d+$/;
if ($o > 24) {
seek($self->{fh},$o-24,1) if ($o);
} else {
use MARC::Fast;
use Getopt::Std;
-use Data::Dumper;
+use Data::Dump qw/dump/;
=head1 NAME
for my $mfn ($min .. $max) {
my $rec = $marc->fetch($mfn) || next;
- print "rec is ",Dumper($rec) if ($opt{d});
+ print "rec is ",dump($rec) if ($opt{d});
print "REC $mfn\n";
print $marc->last_leader,"\n";
print $marc->to_ascii($mfn),"\n";
- print "hash is ",Dumper($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h});
+ print "hash is ",dump($marc->to_hash($mfn)) if ($opt{h});
}
use Test::More tests => 63;
use Test::Exception;
+use Data::Dump qw/dump/;
BEGIN {
use_ok( 'MARC::Fast' );
my $marc_file = 't/camel.usmarc';
-if ( $debug ) {
- eval { require Data::Dump; };
- $debug = 0 if ($@);
-}
-
my $marc;
my %param;