File Coverage

blib/lib/Net/Payjp/Subscription.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	6	0.0
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	36	41.6

package Net::Payjp::Subscription;

use strict;
use warnings;

use base 'Net::Payjp::Resource';

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

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

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

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

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

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

1;