File Coverage

blib/lib/WWW/TypePad/Noun.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	6	0.0
condition			n/a
subroutine	2	5	40.0
pod			n/a
total	8	33	24.2

package WWW::TypePad::Noun;
use strict;
use Any::Moose;

has 'base' => ( is => 'rw', isa => 'WWW::TypePad' );

sub _endpoint {
    my $api = shift;
    my($object_id, $noun, $filter, $filter_arg) = @_;

    my $path = $api->prefix . "/$object_id";
    $path .= "/$noun"        if $noun;
    $path .= "/\@$filter"    if $filter;
    $path .= "/$filter_arg"  if $filter_arg;
    $path .= ".json";

    return $path;
}

sub _get {
    my $api = shift;
    my($id, $noun, $filter, $filter_arg, @rest) = @_;
    my $path = $api->_endpoint($id, $noun, $filter, $filter_arg);
    return $api->base->call(GET => $path, @rest);
}

sub _post {
    my $api = shift;
    my($id, $noun, $filter, $filter_arg, @rest) = @_;
    my $path = $api->_endpoint($id, $noun, $filter, $filter_arg);
    return $api->base->call(POST => $path, @rest);
}

1;