File Coverage

blib/lib/App/PAIA/Command/renew.pm
Criterion Covered Total %
statement 9 14 64.2
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 1 1 100.0
total 13 22 59.0


line stmt bran cond sub pod time code
1             package App::PAIA::Command::renew;
2 4     4   1484 use strict;
  4         4  
  4         90  
3 4     4   25 use v5.10;
  4         7  
  4         101  
4 4     4   14 use parent 'App::PAIA::Command';
  4         4  
  4         21  
5              
6             our $VERSION = '0.30';
7              
8             sub usage_desc {
9 0     0 1   "%c renew %o URI [item=URI] [edition=URI] ..."
10             }
11              
12             sub _execute {
13 0     0     my ($self, $opt, $args) = @_;
14              
15 0           my @docs = $self->uri_list(@$args);
16            
17 0 0         $self->usage_error("Missing document URIs to cancel")
18             unless @docs;
19              
20 0           $self->core_request( 'POST', 'renew', { doc => \@docs } );
21             }
22              
23             1;
24             __END__