WWW::Pusher;
{
$WWW::Pusher::VERSION = '0.0701';
}
use warnings;
use strict;
use 5.008;
use JSON;
use URI;
use LWP::UserAgent;
use Digest::MD5 qw(md5_hex);
use Digest::SHA qw(hmac_sha256_hex);
he event name should be a scalar, but data can also be hash/arrayref. There
should be no need to JSON encode your data.
Returns true on success, or undef on failure. Setting "debug" to a true value
self, %args) = @_;
my $time = time;
my $uri = $self->{uri}->clone;
my $payload = to_json($args{data}, { allow_nonref => 1 });
if($args{channel} && $args{channel} ne '')
{
$uri->path