/[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 363 by dpavlin, Sun Jan 8 20:27:06 2006 UTC revision 632 by dpavlin, Wed Sep 6 17:51:07 2006 UTC
# 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    
# Line 206  sub _get_logger { Line 208  sub _get_logger {
208          $self->{'_logger_'} ||= $self->_init_logger;          $self->{'_logger_'} ||= $self->_init_logger;
209    
210          my $log = get_logger( $name );          my $log = get_logger( $name );
211          warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug);          warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug || !defined($_logger_seen->{$name}));
212            $_logger_seen->{$name}++;
213          return $log;          return $log;
214  }  }
215    
# Line 221  use webpac line this: Line 224  use webpac line this:
224  =cut  =cut
225    
226  sub _new {  sub _new {
227          my $class = shift;          my $class = shift;
228          my $self = {@_};          my $self = {@_};
229          bless($self, $class);          bless($self, $class);
230    
231          $self ? return $self : return undef;          $self ? return $self : return undef;
# Line 242  B<This is different from normal Log4perl Line 245  B<This is different from normal Log4perl
245  also use method names, and not only classes (which are just few)  also use method names, and not only classes (which are just few)
246  to filter logging.  to filter logging.
247    
248    =cut
249    
250    1;
Legend:
Removed from v.363  
changed lines
  Added in v.632
  ViewVC Help
Powered by ViewVC 1.1.26