view release on metacpan or  search on metacpan

lib/Mail/SpamAssassin/SimpleClient/Result.pm  view on Meta::CPAN

use strict;
use warnings;
package Mail::SpamAssassin::SimpleClient::Result;
{
  $Mail::SpamAssassin::SimpleClient::Result::VERSION = '0.102';
}
# ABSTRACT: the results of checking a message

use Carp ();


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

  bless $arg => $class;
}


sub is_spam { $_[0]->{is_spam} }


sub score { $_[0]->{score} }

sub threshold { $_[0]->{threshold} }


sub sa_version { $_[0]->{version} }


sub tests {
  my ($self) = @_;

  return keys %{ $self->{tests} };
}


sub test_scores {
  my ($self) = @_;

  return %{ $self->{tests} };
}


sub test_descriptions {
  my ($self) = @_;

  return %{ $self->{test_desc} };
}


sub email {
  $_[0]->{email}
}

1;

__END__

=pod

=head1 NAME

Mail::SpamAssassin::SimpleClient::Result - the results of checking a message

=head1 VERSION

version 0.102

=head1 METHODS

=head2 new

  my $result = Mail::SpamAssassin::SimpleClient::Result->new(\%arg);

This method returns a new Result object.  Don't call this method unless you are