Parent Directory | Revision Log | Patch
revision 73 by dpavlin, Fri Jun 22 12:48:17 2007 UTC | revision 74 by dpavlin, Fri Jun 22 13:01:13 2007 UTC | |
---|---|---|
# | Line 11 debug | Line 11 debug |
11 | / ); | / ); |
12 | ||
13 | #use Carp qw/confess/; | #use Carp qw/confess/; |
14 | #use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
15 | ||
16 | =head1 NAME | =head1 NAME |
17 | ||
# | Line 31 sub new { | Line 31 sub new { |
31 | my $class = shift; | my $class = shift; |
32 | my $self = $class->SUPER::new( @_ ); | my $self = $class->SUPER::new( @_ ); |
33 | ||
34 | warn "created ", __PACKAGE__, " object\n" if $self->debug; | warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug; |
35 | ||
36 | return $self; | return $self; |
37 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |