File Coverage

blib/lib/Net/OAI/Record.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 3 3 100.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Net::OAI::Record;
2              
3 14     14   72 use strict;
  14         59  
  14         1963  
4              
5             =head1 NAME
6              
7             Net::OAI::Record - An OAI-PMH record.
8              
9             =head1 SYNOPSIS
10              
11             =head1 DESCRIPTION
12              
13             =head1 METHODS
14              
15             =head2 new()
16              
17             probably don't want to instantiate this yourself
18              
19             =cut
20              
21             sub new {
22 800     800 1 3150 my ( $class, %opts ) = @_;
23             return bless {
24             header => $opts{ header },
25             metadata => $opts{ metadata }
26 800   33     12701 }, ref( $class ) || $class;
27             }
28              
29             =head2 header()
30              
31             =cut
32              
33             sub header {
34 601     601 1 326311 my $self = shift;
35 601         1957 return( $self->{ header } );
36             }
37              
38             =head2 metadata()
39              
40             =cut
41              
42             sub metadata {
43 400     400 1 110379 my $self = shift;
44 400         1467 return( $self->{ metadata } );
45             }
46              
47             =head1 TODO
48              
49             =head1 SEE ALSO
50              
51             =head1 AUTHORS
52              
53             =over 4
54              
55             =item * Ed Summers
56              
57             =back
58              
59             =cut
60              
61              
62             1;