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.pm | 8 ++++++++ lib/MooseX/Net/API/Parser/JSON.pm | 17 +++++++++++++++++ lib/MooseX/Net/API/Parser/XML.pm | 24 ++++++++++++++++++++++++ lib/MooseX/Net/API/Parser/YAML.pm | 17 +++++++++++++++++ 4 files changed, 66 insertions(+) create mode 100644 lib/MooseX/Net/API/Parser.pm create mode 100644 lib/MooseX/Net/API/Parser/JSON.pm create mode 100644 lib/MooseX/Net/API/Parser/XML.pm create mode 100644 lib/MooseX/Net/API/Parser/YAML.pm (limited to 'lib/MooseX') diff --git a/lib/MooseX/Net/API/Parser.pm b/lib/MooseX/Net/API/Parser.pm new file mode 100644 index 0000000..d33d857 --- /dev/null +++ b/lib/MooseX/Net/API/Parser.pm @@ -0,0 +1,8 @@ +package MooseX::Net::API::Parser; + +use Moose; + +sub encode {die "must be implemented"} +sub decode {die "must be implemented"} + +1; diff --git a/lib/MooseX/Net/API/Parser/JSON.pm b/lib/MooseX/Net/API/Parser/JSON.pm new file mode 100644 index 0000000..4711a8a --- /dev/null +++ b/lib/MooseX/Net/API/Parser/JSON.pm @@ -0,0 +1,17 @@ +package MooseX::Net::API::Parser::JSON; + +use JSON; +use Moose; +extends 'MooseX::Net::API::Parser'; + +sub encode { + my ($self, $content) = @_; + return JSON::encode_json($content); +} + +sub decode { + my ($self, $content) = @_; + return JSON::decode_json($content); +} + +1; 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; diff --git a/lib/MooseX/Net/API/Parser/YAML.pm b/lib/MooseX/Net/API/Parser/YAML.pm new file mode 100644 index 0000000..f359831 --- /dev/null +++ b/lib/MooseX/Net/API/Parser/YAML.pm @@ -0,0 +1,17 @@ +package MooseX::Net::API::Parser::YAML; + +use YAML::Syck; +use Moose; +extends 'MooseX::Net::API::Parser'; + +sub encode { + my ($self, $content) = @_; + return Dump($content); +} + +sub decode { + my ($self, $content) = @_; + return Load($content); +} + +1; -- cgit 1.4.1