PI;
use 5.010001;
use strict;
use warnings;
use Moo;
use Types::Standard qw/Str Object Int/;
use JSON::MaybeXS;
use URI;
use LWP::UserAgent;
=head1 NAME
WWW::Piwik::API - Tracking module for Piwik
my $json = JSON::MaybeXS->new(ascii => 1);
foreach my $k (keys %data) {
my $v = $data{$k};
if (defined $v) {
if (ref($v)) {
$params{$k} ||= $json->enc