summary refs log tree commit diff
path: root/lib/MooseX/Net/API/Parser
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/Net/API/Parser')
-rw-r--r--lib/MooseX/Net/API/Parser/JSON.pm23
-rw-r--r--lib/MooseX/Net/API/Parser/XML.pm30
-rw-r--r--lib/MooseX/Net/API/Parser/YAML.pm23
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