view release on metacpan or  search on metacpan

t/assets.t  view on Meta::CPAN

#!perl -w
use strict;
use blib;
use Test::More tests => 5;
BEGIN { use_ok('Mail::Miner') };

use MIME::Entity;
use MIME::Parser;

eval {
    require Test::Differences;
    no warnings 'redefine';
    *is_deeply = \&Test::Differences::eq_or_diff;
};


my $message;
my $parser = new MIME::Parser;
$parser->output_to_core(1);
isa_ok( $message = $parser->parse_open("test-message"), "MIME::Entity");

my @got = Mail::Miner::Assets->analyse(
    gethead => sub {$message->head->as_string},