/[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.13 by joko, Thu Jan 30 22:27:05 2003 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    ------------------------------------------------------------------------  ##    ------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.13  2003/01/30 22:27:05  joko
6    ##    + added new abstract methods
7    ##
8    ##    Revision 1.12  2003/01/30 21:46:32  joko
9    ##    + fixed behaviour of AUTOLOAD-method
10    ##
11  ##    Revision 1.11  2003/01/20 16:43:18  joko  ##    Revision 1.11  2003/01/20 16:43:18  joko
12  ##    + better argument-property merging  ##    + better argument-property merging
13  ##    + debugging-output !!!  ##    + debugging-output !!!
# Line 175  sub AUTOLOAD { Line 181  sub AUTOLOAD {
181    # this is to prevent deep recursion's    # this is to prevent deep recursion's
182    return if lc $methodname eq 'exists';    return if lc $methodname eq 'exists';
183    
184  print "$methodname - 1", "\n";  #print "$methodname - 1", "\n";
185    
186    # TODO: enhance logging/debugging    # TODO: enhance logging/debugging
187    #if (!$self->exists('COREHANDLE')) { return; }    #if (!$self->exists('COREHANDLE')) { return; }
# Line 188  print "$methodname - 1", "\n"; Line 194  print "$methodname - 1", "\n";
194    }    }
195    $self->{lock_info}->{last_method} = $methodname;    $self->{lock_info}->{last_method} = $methodname;
196        
197  print "$methodname - 2", "\n";  #print "$methodname - 2", "\n";
198    
199  #print Dumper($self);  #print Dumper($self);
200  #exit;  #exit;
# Line 210  print "$methodname - 2", "\n"; Line 216  print "$methodname - 2", "\n";
216      $handlertype ||= '';      $handlertype ||= '';
217    
218      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\"";
219  print $err_msg_core, "\n";  
220      if ($self->exists('lock_info') && !$self->{lock_info}->{log_lock}) {  #print $err_msg_core, "\n";
221    
222        #if ($self->exists('lock_info') && !$self->{lock_info}->{log_lock}) {
223        $logger->error( $err_msg_core );        $logger->error( $err_msg_core );
224      }      #}
225    
226      return;      return;
227        
228    }    }
229  #=cut  #=cut
230    
# Line 419  sub _typeCheck2 { Line 429  sub _typeCheck2 {
429      return;      return;
430    }    }
431    
432      sub getDbName {
433        my $self = shift;
434        $self->_abstract_function('getDbName');
435        return;
436      }
437    
438      sub testAvailability {
439        my $self = shift;
440        $self->_abstract_function('testAvailability');
441        return;
442      }
443    
444      sub isConnected {
445        my $self = shift;
446        $self->_abstract_function('isConnected');
447        return;
448      }
449    
450      sub testDsn {
451        my $self = shift;
452        $self->_abstract_function('testDsn');
453        return;
454      }
455    
456  1;  1;
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed