File Coverage

lib/Sisimai/Reason/Expired.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	2	4	50.0
total	30	33	90.9

package Sisimai::Reason::Expired;
use feature ':5.10';
use strict;
use warnings;

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 undef;

    state $index = [
        'connection timed out',
        'could not find a gateway for',
        'delivery attempts will continue to be',
        'delivery time expired',
        'failed to deliver to domain ',
        'giving up on',
        'have been failing for a long time',
        'has been delayed',
        'it has not been collected after',
        'message expired after sitting in queue for',
        'message expired, connection refulsed',
        'message timed out',
        'retry time not reached for any host after a long failure period',
        'server did not respond',
        'this message has been in the queue too long',
        'unable to deliver message after multiple retries',
        'was not reachable within the allowed queue period',
        'your message could not be delivered for more than',
    ];
    return 1 if grep { rindex($argv1, $_) > -1 } @$index;
    return 0;
}

sub true {
    # Delivery expired due to connection failure or network error
    # @param    [Sisimai::Data] 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 undef;
}

1;
__END__