File Coverage

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

Criterion	Covered	Total	%
statement	36	53	67.9
branch	11	34	32.3
condition	3	6	50.0
subroutine	8	12	66.6
pod	6	6	100.0
total	64	111	57.6

package WWW::PayPal::API::Plans;

# ABSTRACT: PayPal Billing Plans API (v1)

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

our $VERSION = '0.002';


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

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

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

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

sub create {
    my ($self, %args) = @_;
    croak 'product_id required'     unless $args{product_id};
    croak 'name required'           unless $args{name};
    croak 'billing_cycles required' unless ref $args{billing_cycles} eq 'ARRAY';

    my %body = (
        product_id     => $args{product_id},
        name           => $args{name},
        billing_cycles => $args{billing_cycles},
        payment_preferences => $args{payment_preferences} // {
            auto_bill_outstanding     => \1,
            payment_failure_threshold => 3,
        },
    );
    $body{description} = $args{description} if defined $args{description};
    $body{status}      = $args{status}      if defined $args{status};
    $body{taxes}       = $args{taxes}       if $args{taxes};
    $body{quantity_supported} = $args{quantity_supported} if defined $args{quantity_supported};

    my $data = $self->call_operation('billing.plans.create', body => \%body);
    return $self->_wrap($data);
}


sub create_monthly {
    my ($self, %args) = @_;
    croak 'product_id required' unless $args{product_id};
    croak 'name required'       unless $args{name};
    croak 'price required'      unless defined $args{price};
    my $currency = $args{currency} || 'EUR';

    my @cycles;
    if ($args{trial_days}) {
        push @cycles, {
            frequency    => { interval_unit => 'DAY', interval_count => 0 + $args{trial_days} },
            tenure_type  => 'TRIAL',
            sequence     => 1,
            total_cycles => 1,
            pricing_scheme => {
                fixed_price => { value => '0', currency_code => $currency },
            },
        };
    }
    push @cycles, {
        frequency    => { interval_unit => 'MONTH', interval_count => 1 },
        tenure_type  => 'REGULAR',
        sequence     => scalar(@cycles) + 1,
        total_cycles => $args{total_cycles} // 0,    # 0 = forever
        pricing_scheme => {
            fixed_price => { value => "$args{price}", currency_code => $currency },
        },
    };

    return $self->create(
        product_id     => $args{product_id},
        name           => $args{name},
        description    => $args{description},
        billing_cycles => \@cycles,
    );
}


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


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


sub activate {
    my ($self, $id) = @_;
    croak 'plan id required' unless $id;
    return $self->call_operation('billing.plans.activate', path => { id => $id }, body => '');
}

sub deactivate {
    my ($self, $id) = @_;
    croak 'plan id required' unless $id;
    return $self->call_operation('billing.plans.deactivate', path => { id => $id }, body => '');
}


1;

__END__