--- trunk/scripts/bench.pl 2005/01/06 16:27:07 35 +++ trunk/scripts/bench.pl 2005/01/06 20:48:07 36 @@ -3,7 +3,7 @@ use strict; use blib; -use IsisDB; +use Biblio::Isis; use OpenIsis; use MARC::File::USMARC; @@ -11,12 +11,12 @@ 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 { @@ -34,13 +34,13 @@ 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 ); },