/[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 254 by dpavlin, Fri Dec 16 01:04:14 2005 UTC revision 594 by dpavlin, Mon Jul 10 10:16:03 2006 UTC
# Line 205  sub _get_logger { Line 205  sub _get_logger {
205          my $name = (caller(2))[3] || caller;          my $name = (caller(2))[3] || caller;
206          $self->{'_logger_'} ||= $self->_init_logger;          $self->{'_logger_'} ||= $self->_init_logger;
207    
208          warn "# get_logger( $name )\n" if ($log_debug);          my $log = get_logger( $name );
209            warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug);
210          return get_logger($name);          return $log;
211  }  }
212    
213    
# Line 221  use webpac line this: Line 221  use webpac line this:
221  =cut  =cut
222    
223  sub _new {  sub _new {
224          my $class = shift;          my $class = shift;
225          my $self = {@_};          my $self = {@_};
226          bless($self, $class);          bless($self, $class);
227    
228          $self ? return $self : return undef;          $self ? return $self : return undef;
Legend:
Removed from v.254  
changed lines
  Added in v.594
  ViewVC Help
Powered by ViewVC 1.1.26