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

Diff of /nfo/perl/libs/Class/Logger.pm

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

revision 1.2 by ts-dev, Tue Dec 16 19:27:32 2003 UTC revision 1.3 by ts-dev, Thu Dec 18 18:19:01 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/12/18 18:19:01  ts-dev
6    ##  typo; create instance at startup
7    ##
8  ##  Revision 1.2  2003/12/16 19:27:32  ts-dev  ##  Revision 1.2  2003/12/16 19:27:32  ts-dev
9  ##  first check-in  ##  first check-in
10  ##  ##
# Line 38  use vars qw( Line 41  use vars qw(
41    $ENABLE_METHODS    $ENABLE_METHODS
42    $METHOD_LEVELS    $METHOD_LEVELS
43    $TRACE_STACK_LEVELS    $TRACE_STACK_LEVELS
44          $loggerai @EXPORT          $logger @EXPORT
45  );  );
 @EXPORT = qw($logger);  
46    
47  # default behaviour  # default behaviour
48  $LEVEL_DEFAULT = 'debug';  $LEVEL_DEFAULT = 'debug';
# Line 49  $NAMESPACE_LEVEL = undef; Line 51  $NAMESPACE_LEVEL = undef;
51  $ENABLE_METHODS = 0;  $ENABLE_METHODS = 0;
52  $METHOD_LEVELS = [3];  $METHOD_LEVELS = [3];
53  $TRACE_STACK_LEVELS = [];  $TRACE_STACK_LEVELS = [];
54    $logger = Class::Logger->new();
55    @EXPORT = qw($logger);
56    
57    
58  # TODO: review, revise and rewire this!  # TODO: review, revise and rewire this!
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed