File Coverage

blib/lib/Net/Plywood/Simple.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Net::Plywood::Simple;
use 5.006;
use strict;
use warnings;

use HTTP::Tiny;
use Try::Tiny;
use JSON;

our $VERSION = 0.03;

############
## Public ##
############

sub new {
	my $class  = shift;
	my $params = ref($_[0]) ? $_[0] : {@_};
	if (!$params->{scheme} || !$params->{host} || !$params->{port}) {
		die "arguments 'scheme', 'host' and 'port' are required";
	}
	$params->{_json} = JSON->new->utf8;
	return bless($params, $class);
}

sub put {
	my ($self, $key, $data) = @_;
	if ($key =~ m/\//) {
		die 'can not have forward slash ( / ) characters in key names';
	}
	my $json;
	try {
		$json = $self->{_json}->encode($data);
	} catch {
		die "could not encode tree as JSON, error was: $_";
	};
	my $response;
	try {
		$response = HTTP::Tiny->new->put(
			"$self->{scheme}://$self->{host}:$self->{port}/tree/$key",
			{content => $json},
		);
	} catch {
		die "could not store tree, error was: $_";
	};
	if (!$response->{success}) {
		die "$response->{reason} ($response->{status}): $response->{content}";
	}
	return $response;
}

sub get {
	my ($self, $key, @path) = @_;
	my $path = join('/', @path);
	my $response;
	try {
		$response = HTTP::Tiny->new->get(
			"$self->{scheme}://$self->{host}:$self->{port}/tree/$key/$path",
		);
	} catch {
		die "could not get tree, error was: $_";
	};
	if (!$response->{success}) {
		die "$response->{reason} ($response->{status}): $response->{content}";
	}
	return $response;
}

1;

__END__