Yet Another CPAN Grep

WebService-Bukget ( M/MA/MADCAT/WebService-Bukget-1.00.tar.gz, MADCAT, 2012; MetaCPAN )

WebService-Bukget/lib/WebService/Bukget.pm ( view source; MetaCPAN )

ON = '1.00';
}
# ABSTRACT: Provides access to the v3 Bukget API
use Mojo::Base '-base';
use Mojo::JSON;
use Mojo::UserAgent;
use Try::Tiny qw/try catch/;
use boolean;

has     '_ua'           =>  sub

>get($u)) {
        if(my $res = $tx->success) {
            $args->{on_success}->($self => $res->json) if(defined($args->{on_success}));
        } else {
            my ($err, $code) = $tx->error;

=over 4

=item * on_success - A coderef that gets the WebService::Bukget instance and the decoded JSON result as parameters

=item * on_failure - A coderef that gets an arrayref of code and status as