| 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; |
Parent Directory
| 
Revision Log
| 
Patch
