Notes on using XML::Simple

[irspy-moved-to-github.git] / lib / ZOOM / IRSpy / Record.pm

diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm
index db1b865..5b7a4d0 100644 (file)
--- 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