3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.7 2002/12/01 04:46:19 joko |
7 |
|
# + sub eraseAll |
8 |
|
# |
9 |
# Revision 1.6 2002/11/29 05:02:30 joko |
# Revision 1.6 2002/11/29 05:02:30 joko |
10 |
# - sub getNewPerlObjectByPkgName (moved to libp.pm) |
# - sub getNewPerlObjectByPkgName (moved to libp.pm) |
11 |
# + sub getMetaInfo |
# + sub getMetaInfo |
442 |
return $self->createCursor($query->{node}); |
return $self->createCursor($query->{node}); |
443 |
} |
} |
444 |
|
|
445 |
|
sub eraseAll { |
446 |
|
my $self = shift; |
447 |
|
my $classname = shift; |
448 |
|
my $remote = $self->{storage}->remote($classname); |
449 |
|
my @objs = $self->{storage}->select($remote); |
450 |
|
$self->{COREHANDLE}->erase(@objs); |
451 |
|
} |
452 |
|
|
453 |
1; |
1; |