/[webpac2]/trunk/lib/WebPAC/Common.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Common.pm

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

revision 594 by dpavlin, Mon Jul 10 10:16:03 2006 UTC revision 633 by dpavlin, Wed Sep 6 18:08:04 2006 UTC
# Line 15  WebPAC::Common - internal methods called Line 15  WebPAC::Common - internal methods called
15    
16  =head1 VERSION  =head1 VERSION
17    
18  Version 0.02  Version 0.03
19    
20  =cut  =cut
21    
22  our $VERSION = '0.02';  our $VERSION = '0.03';
23    
24  =head1 SYNOPSYS  =head1 SYNOPSYS
25    
# Line 199  method Line 199  method
199    
200  =cut  =cut
201    
202    my $_logger_seen;
203    
204  sub _get_logger {  sub _get_logger {
205          my $self = shift;          my $self = shift;
206    
207          my $name = (caller(2))[3] || caller;          my $name = (caller(1))[3] || caller;
208    
209            # make name full
210            my $f = '';
211            if ($log_debug) {
212                    foreach ( 0 .. 5 ) {
213                            my $s = (caller($_))[3];
214                            $f .= "#### $_ >> $s\n" if ($s);
215                    }
216            }
217    
218          $self->{'_logger_'} ||= $self->_init_logger;          $self->{'_logger_'} ||= $self->_init_logger;
219    
220          my $log = get_logger( $name );          my $log = get_logger( $name );
221          warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug);          warn "# get_logger( $name ) level ", $log->level, "\n$f" if ($log_debug && !defined($_logger_seen->{$name}));
222            $_logger_seen->{$name}++;
223          return $log;          return $log;
224  }  }
225    
# Line 242  B<This is different from normal Log4perl Line 255  B<This is different from normal Log4perl
255  also use method names, and not only classes (which are just few)  also use method names, and not only classes (which are just few)
256  to filter logging.  to filter logging.
257    
258    =cut
259    
260    1;
Legend:
Removed from v.594  
changed lines
  Added in v.633
  ViewVC Help
Powered by ViewVC 1.1.26