File Coverage

blib/lib/Net/Payjp/Token.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	28	29	96.5

package Net::Payjp::Token;

use strict;
use warnings;

use base 'Net::Payjp';

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

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

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

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

sub tds_finish{
    my $self = shift;

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

1;