File Coverage

lib/Sisimai/Rhost/KDDI.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	29	30	96.6

package Sisimai::Rhost::KDDI;
use v5.26;
use strict;
use warnings;

sub find {
    # Detect bounce reason from au(KDDI)
    # @param    [Sisimai::Fact] argvs   Decoded email object
    # @return   [String]                The bounce reason au.com and ezweb.ne.jp
    # @since v4.22.6
    my $class = shift;
    my $argvs = shift // return ""; return "" unless $argvs->{'diagnosticcode'};

    state $messagesof = {
        'filtered'    => '550 : user unknown',  # The response was: 550 : User unknown
        'userunknown' => '>: user unknown',     # The response was: 550 <...>: User unknown
    };
    my $issuedcode = lc $argvs->{'diagnosticcode'};
    my $reasontext = '';

    for my $e ( keys %$messagesof ) {
        # Try to match the error message with message patterns defined in $MessagesOf
        next unless rindex($issuedcode, $messagesof->{ $e }) > -1;
        $reasontext = $e;
        last;
    }
    return $reasontext;
}

1;
__END__