File Coverage

lib/Sisimai/Rhost/Cloudflare.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	26	27	96.3

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

sub find {
    # Detect bounce reason for Cloudflare Email Routing
    # @param    [Sisimai::Fact] argvs   Decoded email object
    # @return   [String]                Detected bounce reason
    # @since v5.2.1
    # @see https://developers.cloudflare.com/email-routing/postmaster/
    my $class = shift;
    my $argvs = shift // return ""; return "" unless $argvs->{'diagnosticcode'};

    state $messagesof = {
        # - 554  found on one or more RBLs (abusixip). Refer to
        #   https://developers.cloudflare.com/email-routing/postmaster/#spam-and-abusive-traffic/
        "blocked"     => ["found on one or more DNSBLs"],
        "systemerror" => ["Upstream error"],
    };
    for my $e ( keys %$messagesof ) {
        # Try to find the error message matches with the given error message string
        return $e if grep { index($argvs->{"diagnosticcode"}, $_) > -1 } $messagesof->{ $e }->@*;
    }
    return "";
}

1;
__END__