File Coverage

blib/lib/Net/Mailboxlayer/Error.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch			n/a
condition			n/a
subroutine	2	9	22.2
pod	7	7	100.0
total	15	31	48.3

package Net::Mailboxlayer::Error;

use strict;
use warnings;

$Net::Mailboxlayer::Error::VERSION = '0.001';

sub new
{
    my ($class, %props) = @_;

    my $self = bless \%props, $class;

    return $self;
}
sub has_error {return 1}
sub success   {return $_[0]->{success}}
sub type      {return $_[0]->{error}->{type}}
sub info      {return $_[0]->{error}->{info}}
sub code      {return $_[0]->{error}->{code}}
sub response  {return $_[0]->{_response}}

1;

__END__