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