File Coverage

blib/lib/WWW/PayPal/Role/OpenAPI.pm

Criterion	Covered	Total	%
statement	17	22	77.2
branch	4	10	40.0
condition	1	2	50.0
subroutine	5	6	83.3
pod	2	2	100.0
total	29	42	69.0

package WWW::PayPal::Role::OpenAPI;

# ABSTRACT: operationId-based dispatch against a cached OpenAPI spec

use Moo::Role;
use Carp qw(croak);
use Log::Any qw($log);

our $VERSION = '0.002';


requires 'client';
requires 'openapi_operations';

sub get_operation {
    my ($self, $operation_id) = @_;
    my $op = $self->openapi_operations->{$operation_id}
        or croak ref($self) . ": unknown operationId '$operation_id'";
    return $op;
}


sub _resolve_path {
    my ($self, $path, $params) = @_;
    $params ||= {};
    $path =~ s!\{([^}]+)\}!
        defined $params->{$1}
            ? $params->{$1}
            : croak "missing path parameter '$1' for $path"
    !ge;
    return $path;
}

sub call_operation {
    my ($self, $operation_id, %args) = @_;
    my $op = $self->get_operation($operation_id);
    my $path = $self->_resolve_path($op->{path}, $args{path});
    $log->debugf('PayPal op %s -> %s %s', $operation_id, $op->{method}, $path);
    return $self->client->request(
        $op->{method},
        $path,
        (defined $args{body}  ? (body  => $args{body})  : ()),
        (defined $args{query} ? (query => $args{query}) : ()),
        (defined $op->{content_type}
            ? (content_type => $op->{content_type}) : ()),
    );
}



1;

__END__