File Coverage

blib/lib/WebService/Kramerius/API4/PDF.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 22 54.5


line stmt bran cond sub pod time code
1             package WebService::Kramerius::API4::PDF;
2              
3 2     2   257281 use strict;
  2         3  
  2         91  
4 2     2   31 use warnings;
  2         3  
  2         95  
5              
6 2     2   10 use base qw(WebService::Kramerius::API4::Base);
  2         4  
  2         957  
7              
8             our $VERSION = 0.02;
9              
10             sub parent {
11 0     0 0   my ($self, $parent_uuid, $number_of_items) = @_;
12              
13 0           my $opts_hr = {
14             'pid' => 'uuid:'.$parent_uuid,
15             'number' => $number_of_items,
16             };
17              
18 0           return $self->_get_data($self->{'library_url'}.'search/api/v5.0/pdf/parent'.
19             $self->_construct_opts($opts_hr));
20             }
21              
22             sub selection {
23 0     0 0   my ($self, $opts_hr) = @_;
24              
25 0           $self->_validate_opts($opts_hr, ['firstPageType', 'language', 'pids']);
26              
27 0           return $self->_get_data($self->{'library_url'}.'search/api/v5.0/pdf/selection'.
28             $self->_construct_opts($opts_hr));
29             }
30              
31             1;