File Coverage

blib/lib/Acme/Free/Dog/API.pm

Criterion	Covered	Total	%
statement	20	48	41.6
branch	0	10	0.0
condition			n/a
subroutine	7	12	58.3
pod	5	5	100.0
total	32	75	42.6

package Acme::Free::Dog::API;

use v5.10;
use strict;
use warnings;

our $VERSION = '0.9.10';

use HTTP::Tiny;
use JSON            qw/decode_json/;
use Util::H2O::More qw/baptise ddd HTTPTiny2h2o h2o/;

use constant {
    BASEURL => "https://dog.ceo/api",
};

sub new {
    my $pkg  = shift;
    my $self = baptise { ua => HTTP::Tiny->new }, $pkg;
    return $self;
}

# used by:bin/fletch breeds
sub breeds  {
    my $self   = shift;

    # https://dog.ceo/api/breeds/list/all
    my $URL    = sprintf "%s/%s", BASEURL, "breeds/list/all";

    my $resp   = HTTPTiny2h2o $self->ua->get($URL);
    die sprintf( "fatal: API did not provide a useful response (status: %d)\n", $resp->status ) if ( $resp->status != 200 );

    return $resp->content->message;
}

# used by: bin/fletch subbreeds --breed BREED
sub subbreeds  {
    my $self   = shift;
    my $params = h2o {@_}, qw/breed/;

    # https://dog.ceo/api/breed/hound/list
    my $URL    = sprintf "%s/breed/%s/list", BASEURL, $params->breed;

    my $resp   = HTTPTiny2h2o $self->ua->get($URL);
    die sprintf( "fatal: API did not provide a useful response (status: %d)\n", $resp->status ) if ( $resp->status != 200 );

    return $resp->content->message;
}

# used by: bin/fletch images --breed BREED
# Note: API doesn't support getting images by subbreed
sub images {
    my $self   = shift;
    my $params = h2o {@_}, qw/breed/;

    #  https://dog.ceo/api/breed/hound/images
    my $URL    = sprintf "%s/breed/%s/images", BASEURL, $params->breed;

    my $resp   = HTTPTiny2h2o $self->ua->get($URL);
    die sprintf( "fatal: API did not provide a useful response (status: %d)\n", $resp->status ) if ( $resp->status != 200 );

    return $resp->content->message;
}

# used by: bin/fletch random [--breed BREED]
sub random {
    my $self   = shift;
    my $params = h2o {@_}, qw/breed/;

    #  https://dog.ceo/api/breeds/image/random Fetch!
    my $URL    = sprintf "%s/breeds/image/random", BASEURL;

    # handle optional, 'breed => BREED'
    if ($params->breed) {
      # https://dog.ceo/api/breed/affenpinscher/images/random
      $URL    = sprintf "%s/breed/%s/images/random", BASEURL, lc $params->breed;
    }

    my $resp   = HTTPTiny2h2o $self->ua->get($URL);
    die sprintf( "fatal: API did not provide a useful response (status: %d)\n", $resp->status ) if ( $resp->status != 200 );

    return $resp->content->message;
}

1;

__END__