ok(my $hash = $marc->to_hash($_), "to_hash $_");
diag "to_hash($_) = ",Data::Dump::dump($hash) if ($debug);
ok(my $ascii = $marc->to_ascii($_), "to_ascii $_");
diag "to_ascii($_) ::\n$ascii" if ($debug);
}
ok(my $hash = $marc->to_hash($_), "to_hash $_");
diag "to_hash($_) = ",Data::Dump::dump($hash) if ($debug);
ok(my $ascii = $marc->to_ascii($_), "to_ascii $_");
diag "to_ascii($_) ::\n$ascii" if ($debug);
}