File Coverage

blib/lib/Net/Iugu/Invoices.pm
Criterion Covered Total %
statement 3 9 33.3
branch n/a
condition n/a
subroutine 1 3 33.3
pod 2 2 100.0
total 6 14 42.8


line stmt bran cond sub pod time code
1             package Net::Iugu::Invoices;
2             $Net::Iugu::Invoices::VERSION = '0.000002';
3 8     8   33 use Moo;
  8         9  
  8         37  
4             extends 'Net::Iugu::CRUD';
5              
6             sub cancel {
7 0     0 1   my ( $self, $invoice_id ) = @_;
8              
9 0           my $uri = $self->endpoint . '/' . $invoice_id . '/cancel';
10              
11 0           return $self->request( PUT => $uri );
12             }
13              
14             sub refund {
15 0     0 1   my ( $self, $invoice_id ) = @_;
16              
17 0           my $uri = $self->endpoint . '/' . $invoice_id . '/refund';
18              
19 0           return $self->request( POST => $uri );
20             }
21              
22             1;
23              
24             # ABSTRACT: Net::Iugu::Invoices - Methods to manage invoices
25              
26             __END__