CPAN::Groonga

package Catmandu::Adlib::API;

use strict;
use warnings;

use Catmandu::Sane;
use Moo;
use JSON;

use Catmandu::Adlib::API::Login;
use Catmandu::Adlib::API::QueryBuilder;

has username => (is => 'ro',

   my $json = decode_json($response->decoded_content);
    # If there are multiple results for the same object_id, I'm gonna turn violent.
    return $self->get_by_priref($self->get_priref($json->{'ad

;
    my $response = $self->ua->get($url);
    if ($response->is_success) {
        return decode_json($response->decoded_content);
    } elsif ($response->code == 404) {
        return [];
    } else

bject_id {
    my ($self, $object_id) = @_;
    return sprintf('%s&search=object_number=%s&output=json', $self->base_query, $object_id);
}

sub priref {
    my ($self, $priref) = @_;
    return sprint

f('%s&search=priref=%s', $self->base_query, $priref);
}

sub all {
    my ($self) = @_;
    return sprintf('%s&search=all&output=json', $self->base_query);
}

1;
__END__