Yet Another CPAN Grep

Triggermail ( F/FI/FINN/Triggermail-1.005.tar.gz, FINN, 2012; MetaCPAN )

Triggermail/lib/Triggermail.pm ( view source; MetaCPAN )

ings;

our $VERSION = '1.005';

use constant API_URI => 'https://api.sailthru.com';

use LWP;
use JSON::XS;
use URI::Escape;
use HTTP::Request;
use Digest::MD5 qw( md5_hex);
use Params::Validate qw( :

ata->{'format'}  = 'json';
	$data->{'sig'}     = $self->_getSignatureHash($data);
	my $result = $self->_httpRequest( API_URI . "/" . $action, $data, $method );

	my $json    = JSON::XS->new->ascii->pr

etty->allow_nonref;
	my $decoded = $json->decode( $result->content );
	return $decoded ? $decoded : $result;
}

sub _httpRequest {
	validate_pos( @_, { type => HASHREF }, { type => SCALAR }, { type =>