diff --git a/PBot/DualIndexHashObject.pm b/PBot/DualIndexHashObject.pm
index d52d3cad..7d20a0bb 100644
--- a/PBot/DualIndexHashObject.pm
+++ b/PBot/DualIndexHashObject.pm
@@ -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} @_;