File Coverage

blib/lib/HTTP/OAI/SAX/Trace.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 7 9 77.7


line stmt bran cond sub pod time code
1             package HTTP::OAI::SAX::Trace;
2              
3             #use base XML::SAX::Base;
4              
5             our $AUTOLOAD;
6              
7             our $VERSION = '4.13';
8              
9             sub new
10             {
11 10     10 0 578 my( $class, %self ) = @_;
12 10         60 bless \%self, $class;
13             }
14              
15       0     sub DESTROY {}
16              
17             sub AUTOLOAD
18             {
19 1237     1237   17378 $AUTOLOAD =~ s/^.*:://;
20 1237         4438 HTTP::OAI::Debug::sax( $AUTOLOAD . ": " . Data::Dumper::Dumper( @_[1..$#_] ) );
21 1237         4542 shift->{Handler}->$AUTOLOAD( @_ );
22             }
23              
24             1;