File Coverage

blib/lib/SRU/Request/Explain.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 5 6 83.3
pod 2 2 100.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package SRU::Request::Explain;
2             {
3             $SRU::Request::Explain::VERSION = '1.01';
4             }
5             #ABSTRACT: A class for representing SRU explain requests
6              
7 2     2   13 use strict;
  2         5  
  2         80  
8 2     2   14 use warnings;
  2         3  
  2         70  
9 2     2   14 use base qw( Class::Accessor SRU::Request );
  2         3  
  2         2485  
10 2     2   10270 use SRU::Utils qw( error );
  2         5  
  2         509  
11              
12              
13             sub new {
14 1     1 1 5 my ($class,%args) = @_;
15 1         10 return SRU::Request::Explain->SUPER::new( \%args );
16             }
17              
18              
19             my @validParams = qw(
20             version
21             recordPacking
22             stylesheet
23             extraRequestData
24             );
25              
26              
27             # no pod since this is used in SRU::Request
28 0     0 1   sub validParams { return @validParams };
29              
30             SRU::Request::Explain->mk_accessors( @validParams, 'missingOperator' );
31              
32             1;
33              
34             __END__