Commit 872003e0 authored by Krzysztof Krzyzaniak's avatar Krzysztof Krzyzaniak

[svn-upgrade] Integrating new upstream version, libdata-serializer-perl (0.49)

parent 7b2e7f63
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@hotmail.com>
0.48 Tue Aug 20 2008
- Cleaned up DESTROY method to not undef _fields (This was my error, not the submitted patch)
Thanks to Dulaunoy Fabrice <fabrice@dulaunoy.com> for showing me the error of my ways
......
---
name: Data-Serializer
version: 0.48
version: 0.49
author:
- Neil Neely (neil@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 @@ recommends:
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 @@ provides:
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
# 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";
......
......@@ -19,7 +19,7 @@ require Exporter;
@EXPORT = qw( );
@EXPORT_OK = qw( );
$VERSION = '0.48';
$VERSION = '0.49';
# Preloaded methods go here.
{
......
......@@ -6,18 +6,21 @@ use strict;
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 @@ Data::Serializer::XML::Simple - Creates bridge between Data::Serializer and XML:
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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment