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;