diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-07-16 16:12:32 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-07-16 16:12:32 +0200 |
| commit | 5fdee9e79b5b6a72522bee59e4bd7c62506a43c7 (patch) | |
| tree | 9e9f16e674310d95f7c39cea92e87aaa57d67746 /lib/MooseX/Net/API/Error.pm | |
| parent | another fix for path (diff) | |
| download | moosex-net-api-5fdee9e79b5b6a72522bee59e4bd7c62506a43c7.tar.gz | |
remove tests and old lib; use base net::http::api; DEPRECATED
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Net/API/Error.pm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/lib/MooseX/Net/API/Error.pm b/lib/MooseX/Net/API/Error.pm deleted file mode 100644 index 0bb760a..0000000 --- a/lib/MooseX/Net/API/Error.pm +++ /dev/null @@ -1,43 +0,0 @@ -package MooseX::Net::API::Error; - -# ABSTRACT: Throw error - -use Moose; -use JSON; -use Moose::Util::TypeConstraints; -use overload '""' => \&error; - -subtype error => as 'Str'; -coerce error => from 'HashRef' => via { JSON::encode_json $_}; - -has http_error => ( - is => 'ro', - isa => 'HTTP::Response', - handles => { http_message => 'message', http_code => 'code' } -); -has reason => ( - is => 'ro', - isa => 'error', - predicate => 'has_reason', - coerce => 1 -); - -sub error { - my $self = shift; - return - ( $self->has_reason && $self->reason ) - || ( $self->http_message . ": " . $self->http_code ) - || 'unknown'; -} - -1; - -=head1 SYNOPSIS - - MooseX::Net::API::Error->new(reason => "'useragent' is required"); - -or - - MooseX::Net::API::Error->new() - -=head1 DESCRIPTION |
