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 !!! |
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; } |
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; |
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 |
|
|
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; |