| 3 |
# $Id$ |
# $Id$ |
| 4 |
# |
# |
| 5 |
# $Log$ |
# $Log$ |
| 6 |
|
# Revision 1.2 2002/10/17 00:10:43 joko |
| 7 |
|
# + bugfix: constructor argument logging |
| 8 |
|
# |
| 9 |
# Revision 1.1 2002/10/10 03:44:21 cvsjoko |
# Revision 1.1 2002/10/10 03:44:21 cvsjoko |
| 10 |
# + new |
# + new |
| 11 |
# |
# |
| 27 |
my $invocant = shift; |
my $invocant = shift; |
| 28 |
my $class = ref($invocant) || $invocant; |
my $class = ref($invocant) || $invocant; |
| 29 |
my $self = { @_ }; |
my $self = { @_ }; |
| 30 |
$logger->debug( __PACKAGE__ . "->new(" . @_ . ")" ); |
$logger->debug( __PACKAGE__ . "->new( @_ )" ); |
| 31 |
return bless $self, $class; |
return bless $self, $class; |
| 32 |
} |
} |
| 33 |
|
|
Parent Directory
| 
Revision Log
| 
Patch
