port';
use HTTP::Tiny qw( );
use HTTP::Tiny::Multipart qw( );
use JSON::MaybeXS qw( );
use MooX::Types::MooseLike::Base qw( ArrayRef Enum Str);
{
'lazy',
builder => sub { HTTP::Tiny->new(verify_SSL => 1) },
);
has json => (
is => 'lazy',
builder => sub { JSON::MaybeXS->new },
);
# https://documentation.mailgun.com/en/latest/api-s
f->success($response);
}
sub success {
my ($self, $response) = @_;
my $content = $self->json->decode($response->{content});
return Email::Sender::Success::MailgunSuccess->new(id => $cont