File Coverage

blib/lib/HTTP/OAI/ListSets.pm
Criterion Covered Total %
statement 3 13 23.0
branch 0 4 0.0
condition 0 6 0.0
subroutine 1 4 25.0
pod 3 3 100.0
total 7 30 23.3


line stmt bran cond sub pod time code
1             package HTTP::OAI::ListSets;
2              
3             @ISA = qw( HTTP::OAI::PartialList );
4              
5 11     11   70 use strict;
  11         21  
  11         2326  
6              
7             our $VERSION = '4.13';
8              
9 0     0 1   sub set { shift->item(@_) }
10              
11             sub start_element
12             {
13 0     0 1   my ($self,$hash, $r) = @_;
14              
15 0 0 0       if( $hash->{Depth} == 3 && $hash->{LocalName} eq "set" )
16             {
17 0           $self->set_handler(HTTP::OAI::Set->new);
18             }
19              
20 0           $self->SUPER::start_element($hash, $r);
21             }
22              
23             sub end_element
24             {
25 0     0 1   my ($self,$hash, $r) = @_;
26              
27 0           $self->SUPER::end_element($hash, $r);
28              
29 0 0 0       if( $hash->{Depth} == 3 && $hash->{LocalName} eq "set" )
30             {
31 0           $r->callback( $self->get_handler, $self );
32 0           $self->set_handler( undef );
33             }
34             }
35              
36             1;
37              
38             __END__