view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

    my $dmarc = Mail::DMARC::Iterator->new(
	ip => '1.1.1.1',
	mailfrom => 'me@example.com',
	helo => 'mx.example.com'
    );

    # feed DKIM-Signature into iterator
    my ($dksig,$rest) = $mail =~m{\A
	(DKIM-Signature:.*(?:\n[ \t].*)*\n)
	((?s).*)
    }x or die "split mail";
    my @t = $dmarc->next($dksig);
    check_result(\@t,[
	undef,
	'D'
    ]);

    # feed rest of mail into iterator
    @t = $dmarc->next($rest);
    check_result(\@t,[
	undef,