move roles to files

1 files changed, 4 insertions, 41 deletions

diff --git a/lib/MooseX/Net/API.pm b/lib/MooseX/Net/API.pm
index 14a10f2..b74b85a 100644
--- a/lib/MooseX/Net/API.pm
+++ b/lib/MooseX/Net/API.pm
@@ -95,11 +95,13 @@ sub net_api_method {
                 if $format->{mode} eq 'content-type';
 
             my $res = $self->useragent->request($req);
+            my $content_type = $res->headers->{"content-type"};
+
             if ( $res->is_success ) {
-                my $content_type = $res->headers->{"content-type"};
                 if ( my $type = $reverse_content_type->{$content_type} ) {
                     my $method = '_from_' . $type;
                     return $self->$method( $res->content );
+                }else{
                 }
             }
             else {
@@ -168,47 +170,8 @@ sub new {
 
 }
 
-package MooseX::Net::API::Roles::Deserialize;
-
-use Moose::Role;
-use JSON::XS;
-use YAML::Syck;
-use XML::Simple;
-
-sub _from_json {
-    return decode_json( $_[1] );
-}
-
-sub _from_yaml {
-    return Dump $_[1];
-}
-
-sub _from_xml {
-    my $xml = XML::Simple->new( ForceArray => 0 );
-    $xml->XMLout( { data => $_[0] } );
-}
-
-package MooseX::Net::API::Roles::Serialize;
-
-use Moose::Role;
-use JSON::XS;
-use YAML::Syck;
-use XML::Simple;
-
-sub _to_json {
-    return encode_json( $_[1] );
-}
-
-sub _to_yaml {
-    return Load $_[1];
-}
-
-sub _to_xml {
-    my $xml = XML::Simple->new( ForceArray => 0 );
-    $xml->XMLin("$_[0]");
-}
-
 1;
+
 __END__
 
 =head1 NAME