File Coverage

blib/lib/Webservice/KeyVal/API.pm

Criterion	Covered	Total	%
statement	20	43	46.5
branch	0	10	0.0
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	30	66	45.4

package Webservice::KeyVal::API;

use v5.10;
use strict;
use URI::Escape qw/uri_escape/;

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://api.keyval.org",
};

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

sub set($$) {
    my $self = shift;

    my ($key, $val) = @_; # looking for, "key => val"

    $key  = ($key) ? uri_escape $key : "-";
    $val  = uri_escape $val;

    my $URL  = sprintf "%s/set/%s/%s", BASEURL, $key, $val; # provides a unique key name

    my $resp =  HTTPTiny2h2o $self->ua->get($URL);

    # checks HTTP::Tiny's HTTP status field - though this API appears to
    # not implement meaningful statuses (all returned are 200 OK)
    if (not $resp->success) {
      die $resp;
    }

    if ($resp->content->status ne "SUCCESS") {
      die sprintf("Key: '%s', Error: '%s'\n", $key, $resp->content->status);
    }

    return $resp->content;
}

sub get($) {
    my ($self, $key) = @_;

    $key = uri_escape $key;

    my $URL    = sprintf "%s/get/%s", BASEURL, $key;

    my $resp =  HTTPTiny2h2o $self->ua->get($URL);

    # checks HTTP::Tiny's HTTP status field - though this API appears to
    # not implement meaningful statuses (all returned are 200 OK)
    if (not $resp->success) {
      die $resp;
    }

    if ($resp->content->status ne "SUCCESS") {
      die sprintf("Key: '%s', Error: '%s'\n", $key, $resp->content->status);
    }

    return $resp->content;
}

1;

__END__