The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Test::Emailesque;

use strict;
use warnings;
use Emailesque ();
use Email::Sender::Transport::Test;

sub new {
    return bless {}, shift;
}

sub test_function {
    my ($self, $data) = @_;

    my $result = Emailesque::email($data, 'Test');
    return ref($result) =~ /success/i;
}

sub test_method {
    my ($self, $data) = @_;

    my $result = Emailesque->new({})->send($data, 'Test');
    return ref($result) =~ /success/i;
}

1;