| App-Context documentation | Contained in the App-Context distribution. |
App::Serializer::Xml - Interface for serialization and deserialization
use App;
$context = App->context();
$serializer = $context->service("Serializer"); # or ...
$serializer = $context->serializer();
$data = {
an => 'arbitrary',
collection => [ 'of', 'data', ],
of => {
arbitrary => 'depth',
},
};
$xml = $serializer->serialize($data);
$data = $serializer->deserialize($xml);
print $serializer->dump($data), "\n";
A Serializer allows you to serialize a structure of data of arbitrary depth to a scalar and deserialize it back to the structure.
The Xml serializer uses non-validated XML as the serialized form of the data. It uses the XML::Simple class to perform the deserialization and serialization.
* Throws: App::Exception::Serializer * Since: 0.01
The class is entirely made up of static (class) methods. However, they are each intended to be called as methods on the instance itself.
The constructor is inherited from
App::Service|App::Service/"new()".
* Signature: $xml = $serializer->serialize($data);
* Param: $data ref
* Return: $xml text
* Throws: App::Exception::Serializer
* Since: 0.01
Sample Usage:
$context = App->context();
$serializer = $context->service("Serializer"); # or ...
$serializer = $context->serializer();
$data = {
an => 'arbitrary',
collection => [ 'of', 'data', ],
of => {
arbitrary => 'depth',
},
};
$xml = $serializer->serialize($data);
* Signature: $data = $serializer->deserialize($xml);
* Signature: $data = App::Serializer->deserialize($xml);
* Param: $data ref
* Return: $xml text
* Throws: App::Exception::Serializer
* Since: 0.01
Sample Usage:
$context = App->context();
$serializer = $context->service("Serializer"); # or ...
$serializer = $context->serializer();
$data = $serializer->deserialize($xml);
print $serializer->dump($data), "\n";
* Signature: $serialized_content_type = $service->serialized_content_type();
* Param: void
* Return: $serialized_content_type string
* Throws: App::Exception
* Since: 0.01
Sample Usage:
$serialized_content_type = $service->serialized_content_type();
This method is inherited from
App::Serializer|App::Serializer/"dump()".
* Author: Stephen Adkins <spadkins@gmail.com> * License: This is free software. It is licensed under the same terms as Perl itself.
App::Context|App::Context,
App::Service|App::Service
| App-Context documentation | Contained in the App-Context distribution. |
############################################################################# ## $Id: Xml.pm 6783 2006-08-11 17:43:28Z spadkins $ ############################################################################# package App::Serializer::Xml; $VERSION = (q$Revision: 6783 $ =~ /(\d[\d\.]*)/)[0]; # VERSION numbers generated by svn use App; use App::Serializer; @ISA = ( "App::Serializer" ); use strict;
############################################################################# # CLASS #############################################################################
############################################################################# # CONSTRUCTOR METHODS #############################################################################
############################################################################# # new() #############################################################################
############################################################################# # PUBLIC METHODS #############################################################################
############################################################################# # serialize() #############################################################################
use XML::Simple; sub serialize { my ($self, $data) = @_; my ($xml, $xp); $xp = XML::Simple->new( keyattr => [ 'name', ], # turn off 'id' and 'key' #keyattr => [], # turn off 'name', 'id', and 'key' #forcearray => 1, ); $xml = $xp->XMLout($data); return $xml; } ############################################################################# # deserialize() #############################################################################
sub deserialize { my ($self, $xml) = @_; my ($data, $xp); $xp = XML::Simple->new( keyattr => [ 'name', ], # turn off 'id' and 'key' #keyattr => [], # turn off 'name', 'id', and 'key' #forcearray => 1, ); $data = $xp->XMLin($xml); #$data = $data->{anon} if ($data->{anon}); return $data; } ############################################################################# # serialized_content_type() #############################################################################
sub serialized_content_type { 'text/xml'; } ############################################################################# # dump() #############################################################################
1;