r34143 - in /branches/upstream/libdata-serializer-perl/current: Changes META.yml Makefile.PL lib/Data/Serializer.pm lib/Data/Serializer/XML/Simple.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Sat Apr 25 22:36:33 2009
New Revision: 34143

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=34143
Log:
[svn-upgrade] Integrating new upstream version, libdata-serializer-perl (0.49)

Modified:
    branches/upstream/libdata-serializer-perl/current/Changes
    branches/upstream/libdata-serializer-perl/current/META.yml
    branches/upstream/libdata-serializer-perl/current/Makefile.PL
    branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer.pm
    branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer/XML/Simple.pm

Modified: branches/upstream/libdata-serializer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-serializer-perl/current/Changes?rev=34143&op=diff
==============================================================================
--- branches/upstream/libdata-serializer-perl/current/Changes (original)
+++ branches/upstream/libdata-serializer-perl/current/Changes Sat Apr 25 22:36:33 2009
@@ -1,4 +1,8 @@
 Revision history for Perl extension Data::Serializer
+
+0.49  Tue Apr  15 2009
+	- Modified XML::Simple serializer to support options
+		patch supplied by John Alden <john_a_alden at hotmail.com>
 
 0.48  Tue Aug  20 2008
 	- Cleaned up DESTROY method to not undef _fields (This was my error, not the submitted patch)

Modified: branches/upstream/libdata-serializer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-serializer-perl/current/META.yml?rev=34143&op=diff
==============================================================================
--- branches/upstream/libdata-serializer-perl/current/META.yml (original)
+++ branches/upstream/libdata-serializer-perl/current/META.yml Sat Apr 25 22:36:33 2009
@@ -1,12 +1,12 @@
 ---
 name: Data-Serializer
-version: 0.48
+version: 0.49
 author:
   - Neil Neely (neil at neely.cx)
 abstract: Modules that serialize data structures
 license: perl
 resources:
-  license: http://dev.perl.org/licenses/
+  license: ~
 requires:
   AutoLoader: 0
   Data::Dumper: 2.08
@@ -39,7 +39,7 @@
 provides:
   Data::Serializer:
     file: lib/Data/Serializer.pm
-    version: 0.48
+    version: 0.49
   Data::Serializer::Config::General:
     file: lib/Data/Serializer/Config/General.pm
     version: 0.02
@@ -75,14 +75,14 @@
     version: 0.02
   Data::Serializer::XML::Simple:
     file: lib/Data/Serializer/XML/Simple.pm
-    version: 0.02
+    version: 0.03
   Data::Serializer::YAML:
     file: lib/Data/Serializer/YAML.pm
     version: 0.02
   Data::Serializer::YAML::Syck:
     file: lib/Data/Serializer/YAML/Syck.pm
     version: 0.02
-generated_by: Module::Build version 0.2808
+generated_by: Module::Build version 0.31012
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Modified: branches/upstream/libdata-serializer-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-serializer-perl/current/Makefile.PL?rev=34143&op=diff
==============================================================================
--- branches/upstream/libdata-serializer-perl/current/Makefile.PL (original)
+++ branches/upstream/libdata-serializer-perl/current/Makefile.PL Sat Apr 25 22:36:33 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.31012
     
     unless (eval "use Module::Build::Compat 0.02; 1" ) {
       print "This module requires Module::Build to install itself.\n";

Modified: branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer.pm?rev=34143&op=diff
==============================================================================
--- branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer.pm (original)
+++ branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer.pm Sat Apr 25 22:36:33 2009
@@ -19,7 +19,7 @@
 @EXPORT = qw( );
 @EXPORT_OK = qw( );
 
-$VERSION = '0.48';
+$VERSION = '0.49';
 
 # Preloaded methods go here.
 {

Modified: branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer/XML/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer/XML/Simple.pm?rev=34143&op=diff
==============================================================================
--- branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer/XML/Simple.pm (original)
+++ branches/upstream/libdata-serializer-perl/current/lib/Data/Serializer/XML/Simple.pm Sat Apr 25 22:36:33 2009
@@ -6,18 +6,21 @@
 use XML::Simple qw(); 
 use vars qw($VERSION @ISA);
 
-$VERSION = '0.02';
+$VERSION = '0.03';
 
 
 sub serialize {
     my $self = (shift);
-    my $xml = XML::Simple->new(keyattr => [ 'name']);
+    my %options = ref $self->{options} eq 'HASH' ? %{$self->{options}}: ();
+    my $xml = XML::Simple->new(keyattr => [ 'name'], %options);
     return $xml->XMLout( (shift) );
 }
 
 sub deserialize {
-    my $xml = XML::Simple->new(keyattr => [ 'name']);
-    return $xml->XMLin($_[1]);
+    my $self = (shift);
+    my %options = ref $self->{options} eq 'HASH' ? %{$self->{options}}: ();
+    my $xml = XML::Simple->new(keyattr => [ 'name'], %options);
+    return $xml->XMLin( (shift) );
 }
 
 1;
@@ -36,9 +39,7 @@
 
 Module is used internally to Data::Serializer
 
-The only option currently supported is B<dtd>.  This just calls the dtd method of XML::Simple
-prior to serializing the data.   See XML::Simple(3) for details.
-
+Any options are passed through to XML::Simple.  See XML::Simple(3) for details.
 
 =over 4