/[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.1 by ts-dev, Tue Dec 16 19:22:26 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.1  2003/12/16 19:22:26  ts-dev  ##  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
9  ##  first check-in  ##  first check-in
10  ##  ##
11  ##  ##
# 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!
# Line 232  sub log_ { Line 236  sub log_ {
236        
237          $self->{__logger}->{level} ||= $LEVEL_DEFAULT;          $self->{__logger}->{level} ||= $LEVEL_DEFAULT;
238    $self->_configure_LogDispatch();    $self->_configure_LogDispatch();
239          local :Dispatch::Config::CallerDepth = 3;          local ${Log::Dispatch::Config::CallerDepth} = 3;
240    $self->{__logger}->{instance}->log( level => $self->{__logger}->{level}, message => $message );    $self->{__logger}->{instance}->log( level => $self->{__logger}->{level}, message => $message );
241          #$self->__init('log', $message);          #$self->__init('log', $message);
242          #$self->__out();          #$self->__out();
# Line 290  sub trace_ { Line 294  sub trace_ {
294        # $logger->info( __PACKAGE__ . "->trace: '$caller' (mixed into '$classname'): ($options->{tag}) $message.");        # $logger->info( __PACKAGE__ . "->trace: '$caller' (mixed into '$classname'): ($options->{tag}) $message.");
295                
296        # V2:        # V2:
297                          #local :Dispatch::Config::CallerDepth = 3;                          #local ${Log::Dispatch::Config::CallerDepth} = 3;
298          #$self->{__logger}->{instance}->log( level => $self->{__logger}->{level}, message => $message );          #$self->{__logger}->{instance}->log( level => $self->{__logger}->{level}, message => $message );
299              $self->__init('trace', $message);              $self->__init('trace', $message);
300              $self->__out();              $self->__out();
# Line 385  BEGIN { Line 389  BEGIN {
389                  crit critical alert emerg emergency) ) {                  crit critical alert emerg emergency) ) {
390                  *{$l} = sub {                  *{$l} = sub {
391                          my $self = shift;                          my $self = shift;
392                          local :Dispatch::Config::CallerDepth =                          local ${Log::Dispatch::Config::CallerDepth} =
393                                  :Dispatch::Config::CallerDepth + 1;                                  ${Log::Dispatch::Config::CallerDepth} + 1;
394                          $self->log( "@_", $l );                          $self->log( "@_", $l );
395                  };                  };
396          }          }
# Line 398  sub log { Line 402  sub log {
402          my ($message, $level) = @_;          my ($message, $level) = @_;
403          $level ||= 'debug';          $level ||= 'debug';
404          my $logger = $self->_get_instance();          my $logger = $self->_get_instance();
405          local $Log$          local ${Log::Dispatch::Config::CallerDepth} = ${Log::Dispatch::Config::CallerDepth} + 1;
         local Revision 1.1  2003/12/16 19:22:26  ts-dev  
         local first check-in  
         localLog::Dispatch::Config::CallerDepth + 1;  
406          $logger->log( level => $level, message => $message );          $logger->log( level => $level, message => $message );
407  }  }
408    
# Line 411  sub dump { Line 412  sub dump {
412          local $Data::Dumper::Indent = 1;          local $Data::Dumper::Indent = 1;
413          local $Data::Dumper::Sortkeys = 1;          local $Data::Dumper::Sortkeys = 1;
414          my $dump = Dumper $data;          my $dump = Dumper $data;
415          local $Log$          local ${Log::Dispatch::Config::CallerDepth} = ${Log::Dispatch::Config::CallerDepth} + 1;
         local Revision 1.1  2003/12/16 19:22:26  ts-dev  
         local first check-in  
         localLog::Dispatch::Config::CallerDepth + 1;  
416          $self->log("DUMP: \n$dump", 'debug');          $self->log("DUMP: \n$dump", 'debug');
417  }  }
418  sub strace {  sub strace {
# Line 428  sub strace { Line 426  sub strace {
426                  #$message .= qq#  ${subroutine} ($filename line $line)\n#;                  #$message .= qq#  ${subroutine} ($filename line $line)\n#;
427                  $message .= qq#  ${subroutine} (line $line)\n#;                  $message .= qq#  ${subroutine} (line $line)\n#;
428          }          }
429          local $Log$          local ${Log::Dispatch::Config::CallerDepth} = ${Log::Dispatch::Config::CallerDepth} + 1;
         local Revision 1.1  2003/12/16 19:22:26  ts-dev  
         local first check-in  
         localLog::Dispatch::Config::CallerDepth + 1;  
430          $self->log($message, 'debug');          $self->log($message, 'debug');
431  }  }
432    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed