package WWW::Mailgun;
use strict;
use warnings;
use JSON;
use MIME::Base64;
require LWP::UserAgent;
BEGIN {
our $VERSION = 0.4;
}
sub new {
my ($class, $param) = @_;
my $Key = $param
tent_Type => 'multipart/form-data', Content => $msg);
_handle_response($r);
return from_json($r->decoded_content);
}
sub _get_route {
my ($self, $path) = @_;
if (ref $path eq 'ARRA
r = $self->{lc($method)}->($self,'unsubscribes',$data);
_handle_response($r);
return from_json($r->decoded_content);
}
sub complaints {
my ($self, $method, $data) = @_;
$method = $met