CPAN::Groonga

eclare("v0.1.2");
use 5.010;
use Carp;
use failures qw/vero::api/;
use Mojo::UserAgent;
use Mojo::JSON 'j';
use Moo;
use namespace::autoclean;

has ua => (
    is      => 'rw',
    builder => 1,
);
su

$email;

    my $tx = $self->ua->post(
        'https://api.getvero.com/api/v2/users/track.json',
        json => {
            auth_token => $self->token,
            ($id    ? (id    => $id)    : ()

pi->throw("Vero API returned error: code $code, error $err, data " . j($tx->res->json));
    }
    return $tx->res->json;
}

sub track_event {
    my ($self, $event_name, %info) = @_;
    my $id    =