File Coverage

blib/lib/Net/Defensio/Response.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	4	8	50.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	3	3	100.0
total	23	28	82.1

package Net::Defensio::Response;

our $VERSION = '0.01';
use base qw( Class::Accessor::Fast );

__PACKAGE__->mk_accessors(qw(
    action
    status message api_version
    spam spaminess signature
    ham false_positives false_negatives accuracy
    learning learning_message
));

sub success {
    my $r = shift;
    return ($r->status || '') eq 'success';
}

sub is_spam {
    my $r = shift;
    return undef unless defined $r->spam;
    $r->spam eq 'true' ? 1 : 0;
}

sub is_ham {
    my $r = shift;
    return undef unless defined $r->spam;
    $r->spam eq 'false' ? 1 : 0;
}

1;
__END__