From 3ba0f848ab7939e9136058f7c08de290e7a4ca11 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 20 Jun 2006 12:28:26 +0000 Subject: [PATCH] Move Net/Z3950/IRSpy/Record.pm to ZOOM/IRSpy/Record.pm --- lib/ZOOM/IRSpy/Record.pm | 53 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 lib/ZOOM/IRSpy/Record.pm diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm new file mode 100644 index 0000000..db1b865 --- /dev/null +++ b/lib/ZOOM/IRSpy/Record.pm @@ -0,0 +1,53 @@ +# $Id: Record.pm,v 1.1 2006-06-20 12:28:26 mike Exp $ + +package Net::Z3950::IRSpy::Record; + +use 5.008; +use strict; +use warnings; + +=head1 NAME + +Net::Z3950::IRSpy::Record - record describing a target for IRSpy + +=head1 SYNOPSIS + + ### To follow + +=head1 DESCRIPTION + +I<### To follow> + +=cut + +sub new { + my $class = shift(); + my($target, $zeerex) = @_; + + ### Should compile the ZeeRex record into something useful. + return bless { + target => $target, + zeerex => $zeerex, + }, $class; +} + + +=head1 SEE ALSO + +Net::Z3950::IRSpy + +=head1 AUTHOR + +Mike Taylor, Emike@indexdata.comE + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2006 by Index Data ApS. + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.8.7 or, +at your option, any later version of Perl 5 you may have available. + +=cut + +1; -- 1.7.10.4