File Coverage

blib/lib/App/PAIA/Command/request.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 22 23 95.6


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