File Coverage

blib/lib/Net/Payjp/Customer/Subscription.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	33	35	94.2

package Net::Payjp::Customer::Subscription;

use strict;
use warnings;

use base 'Net::Payjp';

sub cus_id{
    my $self = shift;
    $self->{cus_id} = shift if @_;
    return $self->{cus_id};
}

sub retrieve{
    my $self = shift;
    my $id = shift;
    $self->id($id) if $id;

    $self->_request(method => 'GET', url => $self->_instance_url.'/'.$self->id);
}

sub all{
    my $self = shift;
    my %p = @_;

    $self->_request(method => 'GET', url => $self->_instance_url, param => \%p);
}

sub _instance_url{
    my $self = shift;
    return $self->api_base.'/v1/customers/'.$self->cus_id.'/subscriptions';
}


1;