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 |
|
|