use strict;
use blib;
-use IsisDB;
+use Biblio::Isis;
use OpenIsis;
use MARC::File::USMARC;
my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI';
-my $isis = IsisDB->new (
+my $isis = Biblio::Isis->new (
isisdb => $isisdb,
debug => shift @ARGV,
);
-my $isis_filter = IsisDB->new (
+my $isis_filter = Biblio::Isis->new (
isisdb => $isisdb,
debug => shift @ARGV,
hash_filter => sub {
my $mfn = 1;
my $r = timethese( -5, {
- IsisDB => sub {
+ Isis => sub {
$isis->fetch( $mfn++ % $rows + 1 );
},
- IsisDB_hash => sub {
+ Isis_hash => sub {
$isis->to_hash( $mfn++ % $rows + 1 );
},
- IsisDB_hash_filter => sub {
+ Isis_hash_filter => sub {
$isis_filter->to_hash( $mfn++ % $rows + 1 );
},