File Coverage

blib/lib/Vero/API.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	17	18	94.4
condition	6	6	100.0
subroutine	12	12	100.0
pod	2	2	100.0
total	84	85	98.8

package Vero::API;
use version; our $VERSION = version->declare("v0.1.1");
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,
);
sub _build_ua {
    my $ua      = Mojo::UserAgent->new;
    my $agentid = "Vero::API/$VERSION (Perl)";
    # $ua->name was deprecated on Mojolicious 4.50
    $ua->transactor->can('name') ? $ua->transactor->name($agentid) : $ua->name($agentid);
    return $ua;
}

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

sub _build_token {
    croak 'A token is required during initialization. Pass one on constructor or override "_build_token" to return one';
}

sub identify_user {
    my ($self, %info) = @_;
    my $id    = delete $info{id};
    my $email = delete $info{email};

    croak 'id or email is required' unless defined $id or defined $email;

    my $tx = $self->ua->post(
        'https://api.getvero.com/api/v2/users/track.json',
        json => {
            auth_token => $self->token,
            ($id    ? (id    => $id)    : ()),
            ($email ? (email => $email) : ()),
            data => {%info},
        });
    unless ($tx->success) {
        my ($err, $code) = $tx->error;
        failure::vero::api->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    = delete $info{id};
    my $email = delete $info{email};

    croak 'id or email is required' unless defined $id or defined $email;

    my $tx = $self->ua->post(
        'https://api.getvero.com/api/v2/events/track.json',
        json => {
            auth_token => $self->token,
            'identity' => {
                ($id    ? (id    => $id)    : ()),
                ($email ? (email => $email) : ()),
            },
            event_name => $event_name,
            data       => {%info},
        });
    unless ($tx->success) {
        my ($err, $code) = $tx->error;
        failure::vero::api->throw("Vero API returned error: code $code, error $err, data " . j($tx->res->json));
    }
    return $tx->res->json;
}

1;

__END__