diff options
author | franck cuny <franck@lumberjaph.net> | 2009-11-24 14:27:17 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-11-24 14:27:17 +0100 |
commit | 643ed6c86a385bf180a8eeddf5ebdf1a7624dfa5 (patch) | |
tree | 89b24b553feabafa900dd2ad37978270bb35e155 /lib/MooseX/Net/API/Role/Serialize.pm | |
parent | add support for (de)serialization (diff) | |
download | net-http-api-643ed6c86a385bf180a8eeddf5ebdf1a7624dfa5.tar.gz |
move roles to files
Diffstat (limited to '')
-rw-r--r-- | lib/MooseX/Net/API/Role/Serialize.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/MooseX/Net/API/Role/Serialize.pm b/lib/MooseX/Net/API/Role/Serialize.pm new file mode 100644 index 0000000..20e2b97 --- /dev/null +++ b/lib/MooseX/Net/API/Role/Serialize.pm @@ -0,0 +1,21 @@ +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; |