diff options
Diffstat (limited to 'lib/MooseX/Net/API/Parser')
-rw-r--r-- | lib/MooseX/Net/API/Parser/JSON.pm | 23 | ||||
-rw-r--r-- | lib/MooseX/Net/API/Parser/XML.pm | 30 | ||||
-rw-r--r-- | lib/MooseX/Net/API/Parser/YAML.pm | 23 |
3 files changed, 0 insertions, 76 deletions
diff --git a/lib/MooseX/Net/API/Parser/JSON.pm b/lib/MooseX/Net/API/Parser/JSON.pm deleted file mode 100644 index 58cc95a..0000000 --- a/lib/MooseX/Net/API/Parser/JSON.pm +++ /dev/null @@ -1,23 +0,0 @@ -package MooseX::Net::API::Parser::JSON; - -# ABSTRACT: Parse 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; - -=head1 SYNOPSIS - -=head1 DESCRIPTION diff --git a/lib/MooseX/Net/API/Parser/XML.pm b/lib/MooseX/Net/API/Parser/XML.pm deleted file mode 100644 index 305d4b4..0000000 --- a/lib/MooseX/Net/API/Parser/XML.pm +++ /dev/null @@ -1,30 +0,0 @@ -package MooseX::Net::API::Parser::XML; - -# ABSTRACT: Parse XML result - -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; - -=head1 SYNOPSIS - -=head1 DESCRIPTION diff --git a/lib/MooseX/Net/API/Parser/YAML.pm b/lib/MooseX/Net/API/Parser/YAML.pm deleted file mode 100644 index 82e6da2..0000000 --- a/lib/MooseX/Net/API/Parser/YAML.pm +++ /dev/null @@ -1,23 +0,0 @@ -package MooseX::Net::API::Parser::YAML; - -# ABSTRACT: Parse 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; - -=head1 SYNOPSIS - -=head1 DESCRIPTION |