/[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 31 by dpavlin, Sun Jul 24 15:03:11 2005 UTC revision 632 by dpavlin, Wed Sep 6 17:51:07 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.01  Version 0.02
19    
20  =cut  =cut
21    
22  our $VERSION = '0.01';  our $VERSION = '0.02';
23    
24  =head1 SYNOPSYS  =head1 SYNOPSYS
25    
# Line 175  log4perl.appender.SCREEN.layout.Conversi Line 175  log4perl.appender.SCREEN.layout.Conversi
175    
176  _log4perl_  _log4perl_
177                  warn "# $name is using debug logger\n" if ($log_debug);                  warn "# $name is using debug logger\n" if ($log_debug);
178          } elsif ($name !~ m/Test::Exception/o) {          } elsif ($name =~ m/Test::Exception/o) {
179                  warn "# disabled logging for Text::Exception\n";                  warn "# disabled logging for Text::Exception\n" if ($log_debug);
180          } elsif ($file) {          } elsif (-e $file) {
181                  warn "# $name is using $file logger\n" if ($log_debug);                  warn "# $name is using $file logger\n" if ($log_debug);
182                  Log::Log4perl->init($file);                  Log::Log4perl->init($file);
183                    return 1;
184          } else {          } else {
185                  warn "# $name is using null logger\n" if ($log_debug);                  warn "# $name is using null logger\n" if ($log_debug);
186          }          }
# Line 198  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(2))[3] || caller;
208          $self->{'_logger_'} ||= $self->_init_logger;          $self->{'_logger_'} ||= $self->_init_logger;
209    
210          warn "# get_logger( $name )\n" if ($log_debug);          my $log = get_logger( $name );
211            warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug || !defined($_logger_seen->{$name}));
212          return get_logger($name);          $_logger_seen->{$name}++;
213            return $log;
214  }  }
215    
216    
217    =head2 _log
218    
219    Quick cludge to make logging object available to scripts which
220    use webpac line this:
221    
222      my $log = _new WebPAC::Common()->_get_logger();
223    
224    =cut
225    
226    sub _new {
227            my $class = shift;
228            my $self = {@_};
229            bless($self, $class);
230    
231            $self ? return $self : return undef;
232    }
233    
234  =head1 LOGGING  =head1 LOGGING
235    
236  Logging in WebPAC is performed by L<Log::Log4perl> with config file  Logging in WebPAC is performed by L<Log::Log4perl> with config file
# Line 224  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.31  
changed lines
  Added in v.632
  ViewVC Help
Powered by ViewVC 1.1.26