X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=8988a5df4e3bb0e5adfa4c7e8d45c06a036d218d;hp=2e996739973c988155f2011954c0bb9a4c5f3fff;hb=341d604b62eccd6f2b0578933821aec3436a10e0;hpb=3ba0f848ab7939e9136058f7c08de290e7a4ca11

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index 2e99673..8988a5d 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -1,11 +1,11 @@
-# $Id: IRSpy.pm,v 1.1 2006-06-20 12:27:12 mike Exp $
+# $Id: IRSpy.pm,v 1.2 2006-06-20 12:36:13 mike Exp $
 
-package Net::Z3950::IRSpy;
+package ZOOM::IRSpy;
 
 use 5.008;
 use strict;
 use warnings;
-use Net::Z3950::IRSpy::Record;
+use ZOOM::IRSpy::Record;
 use ZOOM::Pod;
 
 our @ISA = qw();
@@ -13,12 +13,12 @@ our $VERSION = '0.02';
 
 =head1 NAME
 
-Net::Z3950::IRSpy - Perl extension for discovering and analysing IR services
+ZOOM::IRSpy - Perl extension for discovering and analysing IR services
 
 =head1 SYNOPSIS
 
- use Net::Z3950::IRSpy;
- $spy = new Net::Z3950::IRSpy("target/string/for/irspy/database");
+ use ZOOM::IRSpy;
+ $spy = new ZOOM::IRSpy("target/string/for/irspy/database");
  print $spy->report_status();
 
 =head1 DESCRIPTION
@@ -131,14 +131,14 @@ sub initialise {
 	my $target = _render_record($rs, $i-1, "id");
 	my $zeerex = _render_record($rs, $i-1, "zeerex");
 	$target2record{lc($target)} =
-	    new Net::Z3950::IRSpy::Record($target, $zeerex);
+	    new ZOOM::IRSpy::Record($target, $zeerex);
     }
 
     foreach my $target (keys %target2record) {
 	my $record = $target2record{$target};
 	if (!defined $record) {
 	    $this->log("irspy", "new record for '$target'");
-	    $target2record{$target} = new Net::Z3950::IRSpy::Record($target);
+	    $target2record{$target} = new ZOOM::IRSpy::Record($target);
 	} else {
 	    $this->log("irspy", "existing record for '$target' $record");
 	}
@@ -233,7 +233,7 @@ sub _render_record {
 
 =head1 SEE ALSO
 
-Net::Z3950::IRSpy::Record
+ZOOM::IRSpy::Record
 
 The ZOOM-Perl module,
 http://search.cpan.org/~mirk/Net-Z3950-ZOOM/