/[cvs]/nfo/perl/libs/Data/Storage/Handler/Abstract.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/Abstract.pm

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

revision 1.11 by joko, Mon Jan 20 16:43:18 2003 UTC revision 1.12 by joko, Thu Jan 30 21:46:32 2003 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    ------------------------------------------------------------------------  ##    ------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.12  2003/01/30 21:46:32  joko
6    ##    + fixed behaviour of AUTOLOAD-method
7    ##
8  ##    Revision 1.11  2003/01/20 16:43:18  joko  ##    Revision 1.11  2003/01/20 16:43:18  joko
9  ##    + better argument-property merging  ##    + better argument-property merging
10  ##    + debugging-output !!!  ##    + debugging-output !!!
# Line 175  sub AUTOLOAD { Line 178  sub AUTOLOAD {
178    # this is to prevent deep recursion's    # this is to prevent deep recursion's
179    return if lc $methodname eq 'exists';    return if lc $methodname eq 'exists';
180    
181  print "$methodname - 1", "\n";  #print "$methodname - 1", "\n";
182    
183    # TODO: enhance logging/debugging    # TODO: enhance logging/debugging
184    #if (!$self->exists('COREHANDLE')) { return; }    #if (!$self->exists('COREHANDLE')) { return; }
# Line 188  print "$methodname - 1", "\n"; Line 191  print "$methodname - 1", "\n";
191    }    }
192    $self->{lock_info}->{last_method} = $methodname;    $self->{lock_info}->{last_method} = $methodname;
193        
194  print "$methodname - 2", "\n";  #print "$methodname - 2", "\n";
195    
196  #print Dumper($self);  #print Dumper($self);
197  #exit;  #exit;
# Line 210  print "$methodname - 2", "\n"; Line 213  print "$methodname - 2", "\n";
213      $handlertype ||= '';      $handlertype ||= '';
214    
215      my $err_msg_core = __PACKAGE__ . "[$handlertype]" . ": " . "COREHANDLE is undefined while trying to execute method \"$methodname\"";      my $err_msg_core = __PACKAGE__ . "[$handlertype]" . ": " . "COREHANDLE is undefined while trying to execute method \"$methodname\"";
216  print $err_msg_core, "\n";  
217      if ($self->exists('lock_info') && !$self->{lock_info}->{log_lock}) {  #print $err_msg_core, "\n";
218    
219        #if ($self->exists('lock_info') && !$self->{lock_info}->{log_lock}) {
220        $logger->error( $err_msg_core );        $logger->error( $err_msg_core );
221      }      #}
222    
223      return;      return;
224        
225    }    }
226  #=cut  #=cut
227    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed