File Coverage

blib/lib/Net/Payjp/External.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	2	0.0
condition			n/a
subroutine	4	8	50.0
pod	5	5	100.0
total	21	40	52.5

package Net::Payjp::External;

use strict;
use warnings;

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

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

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

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

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

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

  $self->_request(method => 'POST', url => $self->_instance_url.'/'.$self->id, param => \%p);
}

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

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

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

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

1;