our $VERSION = '1.2';
use Paubox_Email_SDK::ApiHelper;
use Paubox_Email_SDK::Message;
use JSON;
use Config::General;
use TryCatch;
use String::Util qw(trim);
use MIME::Base64;
my $apiKe
} else {
return "";
}
}
}
sub _convertMsgObjtoJSONReqObj {
my ($msg) = @_;
my %reqObject;
my $encodedHtmlContent
ode_json (\%reqObject);
}
#
# Public methods
#
#
# Get Email Disposition
#
sub getEmailDisposition {
my ($class,$sourceTrackingId) = @_;
my $apiResponseJSON =
);
our $VERSION = '1.2';
use REST::Client;
use JSON;
#
# Default Constructor
#
sub new {
my $this = {};
bless $this;
return $thi
my $client = REST::Client -> new();
$client -> addHeader('Content-Type', 'application/json');
$client -> addHeader('Authorization', $authHeader);
$client -> setHost($baseUrl);
> addHeader('Content-Type', 'application/json');
$client -> addHeader('Authorization', $authHeader);
$client -> addHeader('Accept', 'application/json');
$client -> setHost($baseUrl);