Add ability to clear DualIndexHashObject

This commit is contained in:
Pragmatic Software 2017-08-05 20:15:15 -07:00
parent e5bd377477
commit 16f34026da
1 changed files with 5 additions and 0 deletions

View File

@ -152,6 +152,11 @@ sub save {
close FILE;
}
sub clear {
my $self = shift;
$self->{hash} = {};
}
sub find_index {
my $self = shift;
my ($primary_index_key, $secondary_index_key) = map {lc} @_;