--- nfo/perl/libs/DesignPattern/Object/Logger.pm	2002/12/22 14:17:38	1.1
+++ nfo/perl/libs/DesignPattern/Object/Logger.pm	2003/02/14 14:20:42	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Logger.pm,v 1.1 2002/12/22 14:17:38 joko Exp $
+##  $Id: Logger.pm,v 1.2 2003/02/14 14:20:42 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Logger.pm,v $
+##  Revision 1.2  2003/02/14 14:20:42  joko
+##  + decreased default log-level to debug
+##
 ##  Revision 1.1  2002/12/22 14:17:38  joko
 ##  + initial check-in
 ##
@@ -38,7 +41,10 @@
   # set default values
   $self->{action} ||= '';
   $self->{options}->{tag} ||= '';
-  $self->{level} ||= 'info';
+  
+  #$self->{level} ||= 'info';
+  $self->{level} ||= 'debug';
+  
 }
 
 sub __out {