From e97449eaa8bd3a408763057f9ca2253d93e2a3d0 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 16 Jul 2010 16:10:41 +0200 Subject: rename from mx::net::api to net::http::api --- lib/MooseX/Net/API/Parser/JSON.pm | 23 ----------------------- lib/MooseX/Net/API/Parser/XML.pm | 30 ------------------------------ lib/MooseX/Net/API/Parser/YAML.pm | 23 ----------------------- 3 files changed, 76 deletions(-) delete mode 100644 lib/MooseX/Net/API/Parser/JSON.pm delete mode 100644 lib/MooseX/Net/API/Parser/XML.pm delete mode 100644 lib/MooseX/Net/API/Parser/YAML.pm (limited to 'lib/MooseX/Net/API/Parser') 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 -- cgit 1.4.1