| 3 |
# $Id$ |
# $Id$ |
| 4 |
# |
# |
| 5 |
# $Log$ |
# $Log$ |
| 6 |
|
# Revision 1.4 2002/12/01 04:45:38 joko |
| 7 |
|
# + sub eraseAll |
| 8 |
|
# + sub createDb |
| 9 |
|
# |
| 10 |
# Revision 1.3 2002/11/29 04:58:20 joko |
# Revision 1.3 2002/11/29 04:58:20 joko |
| 11 |
# + Storage::Result now uses the same dispatching mechanism like Storage::Handler |
# + Storage::Result now uses the same dispatching mechanism like Storage::Handler |
| 12 |
# |
# |
| 186 |
# TODO: |
# TODO: |
| 187 |
# - abstract "abstract methods" to list/hash to be used in AUTOLOAD |
# - abstract "abstract methods" to list/hash to be used in AUTOLOAD |
| 188 |
# e.g.: my @ABSTRACT_METHODS = (qw( connect sendCommand getChildNodes )); |
# e.g.: my @ABSTRACT_METHODS = (qw( connect sendCommand getChildNodes )); |
| 189 |
|
# use Class::XYZ (Construct) |
| 190 |
# - build them via anonymous subs |
# - build them via anonymous subs |
| 191 |
# - introduce them via symbols |
# - introduce them via symbols |
| 192 |
|
|
| 247 |
return; |
return; |
| 248 |
} |
} |
| 249 |
|
|
| 250 |
|
sub eraseAll { |
| 251 |
|
my $self = shift; |
| 252 |
|
$self->_abstract_function('eraseAll'); |
| 253 |
|
return; |
| 254 |
|
} |
| 255 |
|
|
| 256 |
|
sub createDb { |
| 257 |
|
my $self = shift; |
| 258 |
|
$self->_abstract_function('createDb'); |
| 259 |
|
return; |
| 260 |
|
} |
| 261 |
|
|
| 262 |
1; |
1; |