File Coverage

lib/Sisimai/Reason/Expired.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::Expired;
use v5.26;
use strict;
use warnings;
use Sisimai::String;

sub text  { 'expired' }
sub description { 'Delivery time has expired due to a connection failure' }
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 = [
        "connection timed out",
        "could not find a gateway for",
        "delivery attempts will continue to be",
        "failed to deliver to domain ",
        "have been failing for a long time",
        "has been delayed",
        "it has not been collected after",
        "message could not be delivered for more than",
        "message expired, ",
        "message has been in the queue too long",
        "message timed out",
        "server did not respond",
        "unable to deliver message after multiple retries",
    ];
    state $pairs = [
        ["could not be delivered for", " days"],
        ["delivery ", "expired"],
        ["not", "reach", "period"],
    ];

    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 1 if grep { Sisimai::String->aligned(\$argv1, $_) } @$pairs;
    return 0;
}

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

1;
__END__