From 14a0f6b2b3ae8a30dbf5ee0c069acc37a3472786 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 2 Jun 2010 11:34:57 +0200 Subject: use JSON, add POD --- lib/MooseX/Net/API/Error.pm | 35 +++++++++++++++++++++++++++++++++-- 1 file changed, 33 insertions(+), 2 deletions(-) (limited to 'lib/MooseX') diff --git a/lib/MooseX/Net/API/Error.pm b/lib/MooseX/Net/API/Error.pm index 0542613..a710205 100644 --- a/lib/MooseX/Net/API/Error.pm +++ b/lib/MooseX/Net/API/Error.pm @@ -1,12 +1,12 @@ package MooseX::Net::API::Error; use Moose; -use JSON::XS; +use JSON; use Moose::Util::TypeConstraints; use overload '""' => \&error; subtype error => as 'Str'; -coerce error => from 'HashRef' => via { encode_json $_}; +coerce error => from 'HashRef' => via { JSON::encode_json $_}; has http_error => ( is => 'ro', @@ -31,3 +31,34 @@ sub error { 1; __END__ + +=head1 NAME + +MooseX::Net::API::Error + +=head1 SYNOPSIS + + MooseX::Net::API::Error->new(reason => "'useragent' is required"); + +or + + MooseX::Net::API::Error->new() + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 by Linkfluence + +http://linkfluence.net + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut -- cgit 1.4.1