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 |
# Revision 1.5 2002/12/01 22:19:33 joko |
10 |
# + just disconnect if COREHANDLE exists |
# + just disconnect if COREHANDLE exists |
11 |
# |
# |
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 |
} |
} |