File Coverage

blib/lib/HTTP/OAI/ListRecords.pm
Criterion Covered Total %
statement 13 14 92.8
branch 4 4 100.0
condition 4 6 66.6
subroutine 3 4 75.0
pod 3 3 100.0
total 27 31 87.1


line stmt bran cond sub pod time code
1             package HTTP::OAI::ListRecords;
2              
3             @ISA = qw( HTTP::OAI::PartialList );
4              
5 11     11   70 use strict;
  11         21  
  11         2337  
6              
7             our $VERSION = '4.11';
8              
9 0     0 1 0 sub record { shift->item(@_) }
10              
11             sub start_element
12             {
13 204     204 1 1618 my ($self,$hash, $r) = @_;
14              
15 204 100 66     518 if( $hash->{Depth} == 3 && $hash->{LocalName} eq "record" )
16             {
17 10         73 $self->set_handler(HTTP::OAI::Record->new);
18             }
19              
20 204         663 $self->SUPER::start_element($hash, $r);
21             }
22              
23             sub end_element
24             {
25 204     204 1 1488 my ($self,$hash, $r) = @_;
26              
27 204         610 $self->SUPER::end_element($hash, $r);
28              
29 204 100 66     558 if( $hash->{Depth} == 3 && $hash->{LocalName} eq "record" )
30             {
31 10         66 HTTP::OAI::Debug::trace( "record: " . $self->get_handler->identifier );
32 10         39 $r->callback( $self->get_handler, $self );
33 10         39 $self->set_handler( undef );
34             }
35             }
36              
37             1;
38              
39             __END__