/[cvs]/nfo/perl/libs/DesignPattern/Object/Logger.pm
ViewVC logotype

Diff of /nfo/perl/libs/DesignPattern/Object/Logger.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Sun Dec 22 14:17:38 2002 UTC revision 1.2 by joko, Fri Feb 14 14:20:42 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 38  sub __init { Line 41  sub __init {
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 {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed