File Coverage

lib/Sisimai/Reason/Suppressed.pm

Criterion	Covered	Total	%
statement	10	15	66.6
branch	0	2	0.0
condition	0	2	0.0
subroutine	5	7	71.4
pod	2	4	50.0
total	17	30	56.6

package Sisimai::Reason::Suppressed;
use v5.26;
use strict;
use warnings;

sub text  { 'suppressed' }
sub description { "Email was not delivered due to being listed in the suppression list of MTA" }
sub match {
    # Try to match that the given text and regular expressions
    # @param    [String] argv1  String to be matched with regular expressions
    # @return   [Integer]       0: Did not match
    #                           1: Matched
    # @since v5.2.0
    return 0;
}

sub true {
    # Whether the address is is the suppression list or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: The address is in the suppression list
    #                                   0: is not in the suppression list
    # @since v5.2.0
    # @see http://www.ietf.org/rfc/rfc2822.txt
    my $class = shift;
    my $argvs = shift // return 0;

    return 1 if $argvs->{'reason'} eq 'suppressed';
    return __PACKAGE__->match(lc $argvs->{'diagnosticcode'});
}

1;
__END__