File Coverage

blib/lib/WWW/PayPal/API/Products.pm

Criterion	Covered	Total	%
statement	13	34	38.2
branch	0	14	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	21	60	35.0

package WWW::PayPal::API::Products;

# ABSTRACT: PayPal Catalogs Products API (v1)

use Moo;
use Carp qw(croak);
use WWW::PayPal::Product;
use namespace::clean;

our $VERSION = '0.002';


has client => (
    is       => 'ro',
    required => 1,
    weak_ref => 1,
);

has openapi_operations => (
    is      => 'lazy',
    builder => sub {
        return {
            'catalogs.products.create' => { method => 'POST',  path => '/v1/catalogs/products' },
            'catalogs.products.list'   => { method => 'GET',   path => '/v1/catalogs/products' },
            'catalogs.products.get'    => { method => 'GET',   path => '/v1/catalogs/products/{id}' },
            'catalogs.products.patch'  => { method => 'PATCH', path => '/v1/catalogs/products/{id}' },
        };
    },
);

with 'WWW::PayPal::Role::OpenAPI';

sub _wrap {
    my ($self, $data) = @_;
    return WWW::PayPal::Product->new(client => $self->client, data => $data);
}

sub create {
    my ($self, %args) = @_;
    croak 'name required' unless $args{name};
    croak 'type required' unless $args{type};

    my %body = (
        name => $args{name},
        type => $args{type},
    );
    for my $k (qw(description category image_url home_url id)) {
        $body{$k} = $args{$k} if defined $args{$k};
    }
    my $data = $self->call_operation('catalogs.products.create', body => \%body);
    return $self->_wrap($data);
}


sub get {
    my ($self, $id) = @_;
    croak 'product id required' unless $id;
    return $self->_wrap($self->call_operation('catalogs.products.get', path => { id => $id }));
}


sub list {
    my ($self, %args) = @_;
    my %query;
    for my $k (qw(page_size page total_required)) {
        $query{$k} = $args{$k} if defined $args{$k};
    }
    my $data = $self->call_operation('catalogs.products.list',
        (%query ? (query => \%query) : ()));
    return [ map { $self->_wrap($_) } @{ $data->{products} || [] } ];
}


1;

__END__