2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/02/14 14:20:42 joko |
6 |
|
## + decreased default log-level to debug |
7 |
|
## |
8 |
## Revision 1.1 2002/12/22 14:17:38 joko |
## Revision 1.1 2002/12/22 14:17:38 joko |
9 |
## + initial check-in |
## + initial check-in |
10 |
## |
## |
41 |
# set default values |
# set default values |
42 |
$self->{action} ||= ''; |
$self->{action} ||= ''; |
43 |
$self->{options}->{tag} ||= ''; |
$self->{options}->{tag} ||= ''; |
44 |
$self->{level} ||= 'info'; |
|
45 |
|
#$self->{level} ||= 'info'; |
46 |
|
$self->{level} ||= 'debug'; |
47 |
|
|
48 |
} |
} |
49 |
|
|
50 |
sub __out { |
sub __out { |