Data::Dumper
git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@26
49f9634a-d7ec-0310-8e6b-
ec35c6cc8804
+use Data::Dump qw/dump/;
# skip to next record
my $o = substr($leader,0,5);
# 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 {
if ($o > 24) {
seek($self->{fh},$o-24,1) if ($o);
} else {
PREREQ_PM => {
'Test::Simple' => 0.44,
'Test::Exception' => 0,
PREREQ_PM => {
'Test::Simple' => 0.44,
'Test::Exception' => 0,
use MARC::Fast;
use Getopt::Std;
use MARC::Fast;
use Getopt::Std;
+use Data::Dump qw/dump/;
for my $mfn ($min .. $max) {
my $rec = $marc->fetch($mfn) || next;
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 "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 Test::More tests => 63;
use Test::Exception;
+use Data::Dump qw/dump/;
BEGIN {
use_ok( 'MARC::Fast' );
BEGIN {
use_ok( 'MARC::Fast' );
my $marc_file = 't/camel.usmarc';
my $marc_file = 't/camel.usmarc';
-if ( $debug ) {
- eval { require Data::Dump; };
- $debug = 0 if ($@);
-}
-