view release on metacpan or  search on metacpan

t/live.t  view on Meta::CPAN

use Email::Sender::Transport::Mailgun;

my @required_vars = qw(
    TEST_MAILGUN_API_KEY
    TEST_MAILGUN_DOMAIN
);

my @missing = grep { !exists $ENV{$_} } @required_vars;

if (@missing) {
    plan skip_all => 'Live test credentials missing',
}

my $api_key = $ENV{TEST_MAILGUN_API_KEY};
my $domain  = $ENV{TEST_MAILGUN_DOMAIN};

my %envelope = (
    from => 'sender@' . $domain,
    to   => $ENV{TEST_MAILGUN_RECIPIENT} || 'recipient@' . $domain,
);