From 71051f3371191cbc6e679ae3c5e5b6e726c20642 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 14 Dec 2006 17:24:29 +0000 Subject: [PATCH] Include Stats module. Better sample code in POD. --- lib/ZOOM/IRSpy.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 098946a..ebd3aae 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.53 2006-12-11 13:58:17 sondberg Exp $ +# $Id: IRSpy.pm,v 1.54 2006-12-14 17:24:29 mike Exp $ package ZOOM::IRSpy; @@ -16,6 +16,7 @@ use Net::Z3950::ZOOM 1.13; # For the ZOOM version-check only use ZOOM::IRSpy::Node; use ZOOM::IRSpy::Connection; use ZOOM::IRSpy::Record; +use ZOOM::IRSpy::Stats; use ZOOM::IRSpy::Utils qw(cql_target); our @ISA = qw(); @@ -41,7 +42,9 @@ ZOOM::IRSpy - Perl extension for discovering and analysing IR services use ZOOM::IRSpy; $spy = new ZOOM::IRSpy("target/string/for/irspy/database"); - print $spy->report_status(); + $spy->targets(@targets); + $spy->initialise(); + $res = $spy->check("Main"); =head1 DESCRIPTION -- 1.7.10.4