X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fbench.pl;h=dac926bff70ffdc2699ea126854732d692dda836;hb=98df52084ab3942eb11c8db3d977330263faa64a;hp=ae79854604e1a47dc204ff28a632b5489e6bbe1a;hpb=e5f476d0fa9eb665fe43c7c316bf079e9c3b929f;p=Biblio-Isis

diff --git a/scripts/bench.pl b/scripts/bench.pl
index ae79854..dac926b 100755
--- a/scripts/bench.pl
+++ b/scripts/bench.pl
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use IsisDB;
+use Biblio::Isis;
 use OpenIsis;
 use MARC::File::USMARC;
 
@@ -11,12 +11,12 @@ use Benchmark qw( timethese cmpthese ) ;
 
 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 {
@@ -25,7 +25,7 @@ my $isis_filter = IsisDB->new (
 	}
 );
 
-my $rows = $isis->{'maxmfn'};
+my $rows = $isis->count;
 
 my $db = OpenIsis::open( $isisdb );
 
@@ -34,13 +34,13 @@ print "rows: $rows\n\n";
 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 );
 	},