diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-03 10:01:01 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-03 10:01:01 +0200 |
| commit | 3da11a8153d3b42af2f2a250008be6cc52e57b09 (patch) | |
| tree | 4da02b541e9f8d35e5f20d63908cd33fe64dc7f8 /lib/MooseX/Net/API/Error.pm | |
| parent | replace remainging with nothing (diff) | |
| parent | fix attribute declaration (diff) | |
| download | moosex-net-api-3da11a8153d3b42af2f2a250008be6cc52e57b09.tar.gz | |
merge
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Net/API/Error.pm | 36 |
1 files changed, 33 insertions, 3 deletions
diff --git a/lib/MooseX/Net/API/Error.pm b/lib/MooseX/Net/API/Error.pm index 0542613..8825877 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', @@ -29,5 +29,35 @@ 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 E<lt>franck@lumberjaph.netE<gt> + +=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 |