File Coverage

blib/lib/WWW/Facebook/API/Exception.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch			n/a
condition			n/a
subroutine	4	9	44.4
pod	5	5	100.0
total	21	40	52.5

#########################################################################
# ex: set ts=8 sw=4 et
#########################################################################
package WWW::Facebook::API::Exception;

use warnings;
use strict;
use Carp;

use overload ('""' => 'stringify');

sub new {
    my ($class, $method, $params, $response) = @_;

    my $self = {
        _method => $method,
        _params => $params,
        _response => $response
    };
    $self = bless $self, $class;
}

sub method { my $self = shift; return $self->{_method} }
sub params { my $self = shift; return $self->{_params} }
sub response { my $self = shift; return $self->{_response} }

sub stringify {
    my $self = shift;

    my $method = $self->method;
    my $params = $self->params;
    my $response = $self->response;

    return "Error during REST $method call:"
                . WWW::Facebook::API->log_string( $params, $response );
}


1;    # Magic true value required at end of module
__END__