File Coverage

blib/lib/Net/Mailboxlayer/Response.pm

Criterion	Covered	Total	%
statement	6	23	26.0
branch			n/a
condition			n/a
subroutine	2	17	11.7
pod	15	15	100.0
total	23	55	41.8

package Net::Mailboxlayer::Response;

use strict;
use warnings;

$Net::Mailboxlayer::Response::VERSION = '0.003';

sub new
{
    my ($class, %props) = @_;
    my $self = bless \%props, $class;
    return $self;
}

sub has_error    {return 0}
sub email        {return $_[0]->{email}}
sub did_you_mean {return $_[0]->{did_you_mean}}
sub user         {return $_[0]->{user}}
sub domain       {return $_[0]->{domain}}
sub format_valid {return $_[0]->{format_valid}}
sub mx_found     {return $_[0]->{mx_found}}
sub smtp_check   {return $_[0]->{smtp_check}}
sub catch_all    {return $_[0]->{catch_all}}
sub role         {return $_[0]->{role}}
sub disposable   {return $_[0]->{disposable}}
sub free         {return $_[0]->{free}}
sub score        {return $_[0]->{score}}
sub response     {return $_[0]->{_response}}

1;

__END__