File Coverage

blib/lib/HTTP/OAI/GetRecord.pm
Criterion Covered Total %
statement 9 9 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 1 2 50.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package HTTP::OAI::GetRecord;
2              
3             require HTTP::OAI::ListRecords;
4             @ISA = qw( HTTP::OAI::ListRecords );
5              
6 11     11   71 use strict;
  11         21  
  11         1620  
7              
8             our $VERSION = '4.13';
9              
10             sub record
11             {
12 4     4 1 217 my $self = shift;
13 4 100       21 $self->{item} = [@_] if @_;
14 4         15 return $self->{item}->[0];
15             }
16              
17             sub generate_body {
18 1     1 0 6 my ($self, $driver) = @_;
19              
20 1         4 for( $self->record ) {
21 1         6 $_->generate( $driver );
22             }
23             }
24              
25             1;
26              
27             __END__