File: Trace.pm

package info (click to toggle)
libhttp-oai-perl 4.03-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 416 kB
  • ctags: 326
  • sloc: perl: 2,531; xml: 224; makefile: 12
file content (22 lines) | stat: -rw-r--r-- 316 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
package HTTP::OAI::SAX::Trace;

#use base XML::SAX::Base;

our $AUTOLOAD;

sub new
{
	my( $class, %self ) = @_;
	bless \%self, $class;
}

sub DESTROY {}

sub AUTOLOAD
{
	$AUTOLOAD =~ s/^.*:://;
HTTP::OAI::Debug::sax( $AUTOLOAD . ": " . Data::Dumper::Dumper( @_[1..$#_] ) );
	shift->{Handler}->$AUTOLOAD( @_ );
}

1;