File Coverage

blib/lib/HTTP/OAI/MemberMixin.pm
Criterion Covered Total %
statement 9 10 90.0
branch 6 6 100.0
condition n/a
subroutine 2 3 66.6
pod 0 2 0.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             package HTTP::OAI::MemberMixin;
2              
3             @ISA = qw( LWP::MemberMixin );
4              
5             our $VERSION = '4.12';
6              
7             sub new
8             {
9 73     73 0 4047 my( $class, %self ) = @_;
10 73         364 return bless \%self, $class;
11             }
12              
13 0     0 0 0 sub harvester { shift->_elem("harvester",@_) }
14              
15             sub _multi
16             {
17 89     89   188 my( $self, $elem ) = splice(@_, 0, 2);
18 89 100       241 if( ref($_[0]) eq "ARRAY" )
    100          
19             {
20 23         61 $self->{$elem} = $_[0];
21             }
22             elsif( @_ )
23             {
24 32         39 push @{$self->{$elem}}, @_;
  32         102  
25             }
26 89 100       117 return @{$self->{$elem} || []};
  89         351  
27             }
28              
29             1;
30              
31             __END__