File Coverage

lib/Sisimai/Reason/NetworkError.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	4	50.0
total	35	37	94.5

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

sub text  { 'networkerror' }
sub description { 'SMTP connection failed due to DNS look up failure or other network problems' }
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 v4.1.12
    my $class = shift;
    my $argv1 = shift // return 0;

    state $index = [
        "could not connect and send the mail to",
        "dns records for the destination computer could not be found",
        "host is unreachable",
        "host name lookup failure",
        "host not found, try again",
        "maximum forwarding loop count exceeded",
        "no route to host",
        "too many hops",
        "unable to resolve route ",
        "unrouteable mail domain",
    ];
    state $pairs = [
        ["malformed", "name server reply"],
        ["mail ", "loop"],
        ["message ", "loop"],
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

sub true {
    # The bounce reason is network error or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is network error
    #                                   0: is not network error
    # @see http://www.ietf.org/rfc/rfc2822.txt
    return 0;
}

1;
__END__