File Coverage

blib/lib/Google/Search/Error.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	1	0.0
total	12	21	57.1

package Google::Search::Error;

use Any::Moose;
use Google::Search::Carp;

use overload
    "" => \&reason,
    fallback => 1,
;

has code => qw/ is ro isa Int /;
has message => qw/ is ro isa Str /, default => '';
has http_response => qw/ is ro isa HTTP::Response /;
has _reason => qw/ init_arg reason is ro isa Str lazy_build 1 /;
sub _build__reason {
    my $self = shift;
    return $self->message unless defined $self->code;
    return join " ", $self->code, $self->message;
}

sub reason {
    return shift->_reason( @_ );
}

1;