File Coverage

lib/Sisimai/Reason/SystemError.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	2	4	50.0
total	39	41	95.1

package Sisimai::Reason::SystemError;
use v5.26;
use strict;
use warnings;
use Sisimai::String;

sub text  { 'systemerror' }
sub description { 'Email returned due to system error on the remote host' }
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.0.0
    my $class = shift;
    my $argv1 = shift // return 0;

    state $index = [
        "aliasing/forwarding loop broken",
        "can't create user output file",
        "cannot send e-mail to yourself",
        "could not load ",
        "interrupted system call",
        "it encountered an error while being processed",
        "it would create a mail loop",
        "loop was found in the mail exchanger",
        "loops back to myself",
        "queue file write error",
        "recipient deferred because there is no mdb",
        "remote server is misconfigured",
        "service currently unavailable",
        "temporary local problem",
        "timeout waiting for input",
        "transaction failed ",
    ];
    state $pairs = [
        ["config", " error"],
        ["internal ", "error"],
        ["local ", "error"],
        ["unable to connect ", "daemon"],
    ];
    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 system error or not
    # @param    [Sisimai::Fact] argvs   Object to be detected the reason
    # @return   [Integer]               1: is system error
    #                                   0: is not system error
    # @see http://www.ietf.org/rfc/rfc2822.txt
    return 0;
}

1;
__END__