/[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 632 by dpavlin, Wed Sep 6 17:51:07 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 204  my $_logger_seen; Line 204  my $_logger_seen;
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 || !defined($_logger_seen->{$name}));          warn "# get_logger( $name ) level ", $log->level, "\n$f" if ($log_debug && !defined($_logger_seen->{$name}));
222          $_logger_seen->{$name}++;          $_logger_seen->{$name}++;
223          return $log;          return $log;
224  }  }
Legend:
Removed from v.632  
changed lines
  Added in v.633
  ViewVC Help
Powered by ViewVC 1.1.26