From 07932c16ad44896d07f77d3e20b9df7dac7bc0ac Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 6 Jan 2005 20:48:07 +0000 Subject: [PATCH] renamed module to Biblio::Isis git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@36 4670fa4d-42ec-0310-ab5b-a66af6943492 --- IsisDB.pm => Isis.pm | 12 ++++++------ MANIFEST | 2 +- Makefile.PL | 6 +++--- scripts/bench.pl | 12 ++++++------ scripts/dump_isisdb.pl | 4 ++-- t/001_load.t | 6 +++--- t/002_isis.t | 12 ++++++------ t/999_pod.t | 2 +- 8 files changed, 28 insertions(+), 28 deletions(-) rename IsisDB.pm => Isis.pm (98%) diff --git a/IsisDB.pm b/Isis.pm similarity index 98% rename from IsisDB.pm rename to Isis.pm index 37f7030..35c92b5 100644 --- a/IsisDB.pm +++ b/Isis.pm @@ -1,4 +1,4 @@ -package IsisDB; +package Biblio::Isis; use strict; use Carp; @@ -9,7 +9,7 @@ use Data::Dumper; BEGIN { use Exporter (); use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); - $VERSION = 0.09; + $VERSION = 0.10; @ISA = qw (Exporter); #Give a hoot don't pollute, do not export more than needed by default @EXPORT = qw (); @@ -20,13 +20,13 @@ BEGIN { =head1 NAME -IsisDB - Read CDS/ISIS, WinISIS and IsisMarc database +Biblio::Isis - Read CDS/ISIS, WinISIS and IsisMarc database =head1 SYNOPSIS - use IsisDB; + use Biblio::Isis; - my $isis = new IsisDB( + my $isis = new Biblio::Isis( isisdb => './cds/cds', ); @@ -81,7 +81,7 @@ rarely an issue). Open ISIS database - my $isis = new IsisDB( + my $isis = new Biblio::Isis( isisdb => './cds/cds', read_fdt => 1, include_deleted => 1, diff --git a/MANIFEST b/MANIFEST index 39a3af9..7e3c432 100644 --- a/MANIFEST +++ b/MANIFEST @@ -3,7 +3,7 @@ LICENSE README Changes Makefile.PL -IsisDB.pm +Isis.pm t/001_load.t t/002_isis.t t/998_pod-coverage.t diff --git a/Makefile.PL b/Makefile.PL index 98b2f60..850cd73 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -2,10 +2,10 @@ use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( - NAME => 'IsisDB', - VERSION_FROM => 'IsisDB.pm', # finds $VERSION + NAME => 'Biblio::Isis', + VERSION_FROM => 'Isis.pm', # finds $VERSION AUTHOR => 'Dobrica Pavlinusic (dpavlin@rot13.org)', - ABSTRACT_FROM => 'IsisDB.pm', + ABSTRACT_FROM => 'Isis.pm', PREREQ_PM => { 'Test::Simple' => 0.44, 'Carp' => 0, diff --git a/scripts/bench.pl b/scripts/bench.pl index 4fd3cb2..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 { @@ -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 ); }, diff --git a/scripts/dump_isisdb.pl b/scripts/dump_isisdb.pl index 0a5fb51..057cd29 100755 --- a/scripts/dump_isisdb.pl +++ b/scripts/dump_isisdb.pl @@ -3,13 +3,13 @@ use strict; use blib; -use IsisDB; +use Biblio::Isis; use Data::Dumper; my $isisdb = shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI', my $debug = shift @ARGV; -my $isis = IsisDB->new ( +my $isis = Biblio::Isis->new ( isisdb => $isisdb, debug => $debug, include_deleted => 1, diff --git a/t/001_load.t b/t/001_load.t index 39eb2ff..c2734d6 100755 --- a/t/001_load.t +++ b/t/001_load.t @@ -5,12 +5,12 @@ use blib; use Test::More tests => 2; -BEGIN { use_ok( 'IsisDB' ); } +BEGIN { use_ok( 'Biblio::Isis' ); } -my $object = IsisDB->new ( +my $object = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', ); -isa_ok ($object, 'IsisDB'); +isa_ok ($object, 'Biblio::Isis'); diff --git a/t/002_isis.t b/t/002_isis.t index ec2d510..e1163e5 100755 --- a/t/002_isis.t +++ b/t/002_isis.t @@ -7,7 +7,7 @@ use Data::Dumper; use Test::More tests => 110; -BEGIN { use_ok( 'IsisDB' ); } +BEGIN { use_ok( 'Biblio::Isis' ); } my $debug = shift @ARGV; my $isis; @@ -16,7 +16,7 @@ sub test_data { my $args = {@_}; - isa_ok ($isis, 'IsisDB'); + isa_ok ($isis, 'Biblio::Isis'); cmp_ok($isis->count, '==', 5, "count is 5"); @@ -122,7 +122,7 @@ sub test_data { } -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', include_deleted => 1, debug => $debug, @@ -141,7 +141,7 @@ test_data( ) ], ); -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/isismarc/BIBL', include_deleted => 1, ); @@ -158,7 +158,7 @@ test_data( # check logically deleted -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', include_deleted => 1, ); @@ -166,7 +166,7 @@ $isis = IsisDB->new ( ok($isis->fetch(3), "deleted found"); cmp_ok($isis->{deleted}, '==', 3, "MFN 3 is deleted"); -$isis = IsisDB->new ( +$isis = Biblio::Isis->new ( isisdb => './data/winisis/BIBL', debug => $debug, ); diff --git a/t/999_pod.t b/t/999_pod.t index 9ab0e16..3d86034 100755 --- a/t/999_pod.t +++ b/t/999_pod.t @@ -9,5 +9,5 @@ plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; plan tests => 1; -pod_file_ok("IsisDB.pm"); +pod_file_ok("Isis.pm"); -- 2.20.1