package WWW::Mixpanel;
use strict;
use warnings;
use LWP::UserAgent;
use MIME::Base64;
use JSON;
BEGIN {
$WWW::Mixpanel::VERSION = '0.04';
}
sub new {
my ( $class, $token, $use_ssl, $api_key, $
unless $token;
my $ua = LWP::UserAgent->new;
$ua->timeout(180);
$ua->env_proxy;
my $json = JSON->new->allow_blessed(1)->convert_blessed(1);
bless { token => $to
data_api => 'mixpanel.com/api/2.0/',
json => $json,
ua => $ua, }, $class;
}
sub track {