view release on metacpan or  search on metacpan

t/common.pl  view on Meta::CPAN

use strict;
BEGIN { eval "use Mail::Internet;";
    if ($@) {
        require Test::More;
        Test::More->import(skip_all =>"You don't have Mail::Internet");
        exit;
    }
    eval "use Test::Differences";
}

package Email::Abstract::Mail;
use base 'Email::Abstract::MailInternet';
# keep a sequence number so we can order things later
package Mail;
use base 'Mail::Internet';
sub order { $_[0]->{___order} }
my $seq;
sub new {