From d817af5411ef2b7592e4b4f3da466e2e05fe365e Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 2 Jun 2010 11:36:46 +0200 Subject: parser to (de)serialize content --- lib/MooseX/Net/API/Parser/XML.pm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 lib/MooseX/Net/API/Parser/XML.pm (limited to 'lib/MooseX/Net/API/Parser/XML.pm') diff --git a/lib/MooseX/Net/API/Parser/XML.pm b/lib/MooseX/Net/API/Parser/XML.pm new file mode 100644 index 0000000..f831cf1 --- /dev/null +++ b/lib/MooseX/Net/API/Parser/XML.pm @@ -0,0 +1,24 @@ +package MooseX::Net::API::Parser::XML; + +use XML::Simple; +use Moose; +extends 'MooseX::Net::API::Parser'; + +has _xml_parser( + is => 'rw', + isa => 'XML::Simple', + lazy => 1, + default => sub { XML::SImple->new(ForceArray => 0) } +); + +sub encode { + my ($self, $content) = @_; + return $self->_xml_parser->XMLin($content); +} + +sub decode { + my ($self, $content) = @_; + return $self->_xml_parser->XMLout($content); +} + +1; -- cgit v1.2.3 From b62c50ed3c9b48d7d964134de5f4ef0fd36a6112 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 3 Jun 2010 09:50:39 +0200 Subject: update POD --- lib/MooseX/Net/API/Parser/XML.pm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'lib/MooseX/Net/API/Parser/XML.pm') diff --git a/lib/MooseX/Net/API/Parser/XML.pm b/lib/MooseX/Net/API/Parser/XML.pm index f831cf1..8aee74f 100644 --- a/lib/MooseX/Net/API/Parser/XML.pm +++ b/lib/MooseX/Net/API/Parser/XML.pm @@ -22,3 +22,29 @@ sub decode { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Parser::XML + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2010 by Linkfluence + +http://linkfluence.net + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut -- cgit v1.2.3 From 76f2776bc147cc3077be947eef0effae9f5367f9 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 3 Jun 2010 09:59:27 +0200 Subject: fix attribute declaration --- lib/MooseX/Net/API/Parser/XML.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/MooseX/Net/API/Parser/XML.pm') diff --git a/lib/MooseX/Net/API/Parser/XML.pm b/lib/MooseX/Net/API/Parser/XML.pm index 8aee74f..7198175 100644 --- a/lib/MooseX/Net/API/Parser/XML.pm +++ b/lib/MooseX/Net/API/Parser/XML.pm @@ -4,7 +4,7 @@ use XML::Simple; use Moose; extends 'MooseX::Net::API::Parser'; -has _xml_parser( +has _xml_parser => ( is => 'rw', isa => 'XML::Simple', lazy => 1, -- cgit v1.2.3