File Coverage

blib/lib/WWW/PayPal/Subscription.pm

Criterion	Covered	Total	%
statement	23	44	52.2
branch	4	8	50.0
condition	1	3	33.3
subroutine	12	23	52.1
pod	20	20	100.0
total	60	98	61.2

package WWW::PayPal::Subscription;

# ABSTRACT: PayPal Billing Subscription entity

use Moo;
use namespace::clean;

our $VERSION = '0.002';


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

has data => ( is => 'rw', required => 1 );


sub id         { $_[0]->data->{id} }
sub status     { $_[0]->data->{status} }
sub plan_id    { $_[0]->data->{plan_id} }
sub custom_id  { $_[0]->data->{custom_id} }
sub start_time { $_[0]->data->{start_time} }
sub create_time { $_[0]->data->{create_time} }
sub update_time { $_[0]->data->{update_time} }


sub _links { $_[0]->data->{links} || [] }

sub link_for {
    my ($self, $rel) = @_;
    for my $l (@{ $self->_links }) {
        return $l->{href} if $l->{rel} && $l->{rel} eq $rel;
    }
    return;
}


sub approve_url {
    my ($self) = @_;
    return $self->link_for('approve');
}


sub subscriber_email {
    $_[0]->data->{subscriber}{email_address};
}

sub subscriber_name {
    my ($self) = @_;
    my $n = $self->data->{subscriber}{name} or return;
    return join(' ', grep { defined && length } $n->{given_name}, $n->{surname});
}

sub subscriber_payer_id {
    $_[0]->data->{subscriber}{payer_id};
}


sub next_billing_time {
    $_[0]->data->{billing_info}{next_billing_time};
}

sub last_payment_amount {
    $_[0]->data->{billing_info}{last_payment}{amount}{value};
}

sub last_payment_currency {
    $_[0]->data->{billing_info}{last_payment}{amount}{currency_code};
}

sub cycle_executions {
    $_[0]->data->{billing_info}{cycle_executions};
}


sub refresh {
    my ($self) = @_;
    my $fresh = $self->_client->subscriptions->get($self->id);
    $self->data($fresh->data);
    return $self;
}

sub suspend  { my $s = shift; $s->_client->subscriptions->suspend($s->id, @_);  $s->refresh }
sub activate { my $s = shift; $s->_client->subscriptions->activate($s->id, @_); $s->refresh }
sub cancel   { my $s = shift; $s->_client->subscriptions->cancel($s->id, @_);   $s->refresh }



1;

__END__