File Coverage

blib/lib/Net/Iugu/PaymentMethods.pm

Criterion	Covered	Total	%
statement	3	22	13.6
branch			n/a
condition			n/a
subroutine	1	7	14.2
pod	5	5	100.0
total	9	34	26.4

package Net::Iugu::PaymentMethods;
$Net::Iugu::PaymentMethods::VERSION = '0.000002';
use Moo;
extends 'Net::Iugu::CRUD';

sub create {
    my ( $self, $customer_id, $data ) = @_;

    my $uri = $self->_uri($customer_id);

    return $self->request( POST => $uri, $data );
}

sub read {
    my ( $self, $customer_id, $payment_method_id ) = @_;

    my $uri = $self->_uri( $customer_id, $payment_method_id );

    return $self->request( GET => $uri );
}

sub update {
    my ( $self, $customer_id, $payment_method_id, $data ) = @_;

    my $uri = $self->_uri( $customer_id, $payment_method_id );

    return $self->request( PUT => $uri, $data );
}

sub delete {
    my ( $self, $customer_id, $payment_method_id ) = @_;

    my $uri = $self->_uri( $customer_id, $payment_method_id );

    return $self->request( DELETE => $uri );
}

sub list {
    my ( $self, $customer_id ) = @_;

    my $uri = $self->_uri($customer_id);

    return $self->request( GET => $uri );
}

sub _uri {
    my ( $self, $customer_id, $payment_method_id ) = @_;

    my @parts = (
        $self->base_uri,       ##
        'customers',           ##
        $customer_id,          ##
        'payment_methods',     ##
        $payment_method_id,    ##
    );

    return join '/', grep { !!$_ } @parts;
}

1;

# ABSTRACT: Net::Iugu::PaymentMethods - Methods to manage payment methods

__END__