3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.6 2002/12/03 15:52:24 joko |
7 |
|
# + fix/feature: if dispatching to deep core method fails (is not declared), try method at Data::Storage - level |
8 |
|
# |
9 |
|
# Revision 1.5 2002/12/01 22:19:33 joko |
10 |
|
# + just disconnect if COREHANDLE exists |
11 |
|
# |
12 |
# Revision 1.4 2002/12/01 04:45:38 joko |
# Revision 1.4 2002/12/01 04:45:38 joko |
13 |
# + sub eraseAll |
# + sub eraseAll |
14 |
# + sub createDb |
# + sub createDb |
126 |
|
|
127 |
# method calls doing it until here will get dispatched to the proper handler |
# method calls doing it until here will get dispatched to the proper handler |
128 |
return $self->{COREHANDLE}->$methodname(@_); |
return $self->{COREHANDLE}->$methodname(@_); |
129 |
|
|
130 |
|
} elsif ($self->can($methodname)) { |
131 |
|
return $self->$methodname(@_); |
132 |
} |
} |
133 |
|
|
134 |
} |
} |
142 |
|
|
143 |
# call "disconnect" or alike on COREHANDLE |
# call "disconnect" or alike on COREHANDLE |
144 |
# was: $self->{COREHANDLE}->disconnect(); |
# was: $self->{COREHANDLE}->disconnect(); |
145 |
$disconnectMethod && ( $self->{COREHANDLE}->$disconnectMethod() ); |
$disconnectMethod && $self->{COREHANDLE} && ( $self->{COREHANDLE}->$disconnectMethod() ); |
146 |
|
|
147 |
undef $self->{COREHANDLE}; |
undef $self->{COREHANDLE}; |
148 |
} |
} |