e File::Basename 'basename';
use HTTP::Request::Common 'POST';
use HTTP::Status ':constants';
use JSON::XS;
use LWP::UserAgent;
use Sys::Hostname;
use Time::Piece;
use URI;
use UUID::Tiny ':std';
use
(
is => 'ro',
isa => Int,
default => 5,
);
has json_obj => (
is => 'ro',
builder => '_build_json_obj',
lazy => 1,
);
has ua_obj => (
is => 'ro',
nt);
my ($response, $response_code, $response_content);
eval {
my $event_json = $self->json_obj()->encode( $event );
$self->ua_obj()->timeout($self->timeout());
my