X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=lib%2FZOOM%2FIRSpy%2FRecord.pm;h=5b7a4d0354d236b3ee4d105671d0ac9321ae3d04;hb=87930278fea9e53f95622c9d5db2624c75438926;hp=db1b8659fd8867e8059467d04d7647c80e0ce0d6;hpb=c3fa325a38274107a241d301a40a3c8fd1c21779;p=irspy-moved-to-github.git

diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm
index db1b865..5b7a4d0 100644
--- a/lib/ZOOM/IRSpy/Record.pm
+++ b/lib/ZOOM/IRSpy/Record.pm
@@ -1,6 +1,6 @@
-# $Id: Record.pm,v 1.1 2006-06-20 12:28:26 mike Exp $
+# $Id: Record.pm,v 1.3 2006-07-11 16:14:47 mike Exp $
 
-package Net::Z3950::IRSpy::Record;
+package ZOOM::IRSpy::Record;
 
 use 5.008;
 use strict;
@@ -8,7 +8,7 @@ use warnings;
 
 =head1 NAME
 
-Net::Z3950::IRSpy::Record - record describing a target for IRSpy
+ZOOM::IRSpy::Record - record describing a target for IRSpy
 
 =head1 SYNOPSIS
 
@@ -27,14 +27,20 @@ sub new {
     ### Should compile the ZeeRex record into something useful.
     return bless {
 	target => $target,
-	zeerex => $zeerex,
+	zeerex => $zeerex,	# Do we actually need this for anything?
     }, $class;
 }
 
 
+#use XML::Simple qw(:strict);
+#my %attr = (KeyAttr => [], KeepRoot => 1);
+#my $config = XMLin("foo.xml", %attr, ForceArray => 1, ForceContent => 1);
+#print XMLout($config, %attr);
+
+
 =head1 SEE ALSO
 
-Net::Z3950::IRSpy
+ZOOM::IRSpy
 
 =head1 AUTHOR