File Coverage

blib/lib/WWW/PayPal/Plan.pm

Criterion	Covered	Total	%
statement	7	26	26.9
branch			n/a
condition			n/a
subroutine	3	13	23.0
pod	11	11	100.0
total	21	50	42.0

package WWW::PayPal::Plan;

# ABSTRACT: PayPal Billing Plan 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 product_id     { $_[0]->data->{product_id} }
sub name           { $_[0]->data->{name} }
sub description    { $_[0]->data->{description} }
sub status         { $_[0]->data->{status} }
sub billing_cycles { $_[0]->data->{billing_cycles} }
sub create_time    { $_[0]->data->{create_time} }
sub update_time    { $_[0]->data->{update_time} }


sub activate {
    my ($self) = @_;
    $self->_client->plans->activate($self->id);
    $self->refresh;
    return $self;
}

sub deactivate {
    my ($self) = @_;
    $self->_client->plans->deactivate($self->id);
    $self->refresh;
    return $self;
}


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


1;

__END__