1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
package MooseX::Net::API::Parser::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;