File Coverage

blib/lib/App/PAIA/Command/cancel.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::cancel;
2 4     4   34265 use strict;
  4         7  
  4         137  
3 4     4   78 use v5.10;
  4         17  
  4         180  
4              
5             our $VERSION = '0.29';
6              
7 4     4   17 use parent 'App::PAIA::Command';
  4         6  
  4         28  
8              
9             sub usage_desc {
10 0     0 1   "%c cancel %o URI [item=URI] [edition=URI] ..."
11             }
12              
13             sub _execute {
14 0     0     my ($self, $opt, $args) = @_;
15              
16 0           my @docs = $self->uri_list(@$args);
17            
18 0 0         $self->usage_error("Missing document URIs to cancel")
19             unless @docs;
20              
21 0           $self->core_request( 'POST', 'cancel', { doc => \@docs } );
22             }
23              
24             1;
25             __END__