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   1471 use strict;
  4         6  
  4         98  
3 4     4   27 use v5.10;
  4         8  
  4         116  
4 4     4   12 use parent 'App::PAIA::Command';
  4         7  
  4         15  
5              
6             our $VERSION = '0.29';
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__