App/Hashl: Add unignore function (not yet used in hashl itself)

1 files changed, 12 insertions, 0 deletions

diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index 468ddb9..da06693 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -158,6 +158,14 @@ sub ignore {
 	return 1;
 }
 
+sub unignore {
+	my ( $self, $path ) = @_;
+
+	delete $self->{ignored}->{ $self->hash_file($path) };
+
+	return 1;
+}
+
 sub save {
 	my ( $self, $file ) = @_;
 
@@ -286,6 +294,10 @@ Returns a list of all ignored file hashes.
 Removes I<$file> from the database and adds I<$path> to the list of ignored
 file hashes.
 
+=item $hashl->unignore(I<$path>)
+
+Unignore the hash of I<$path>.
+
 =item $hashl->save(I<$file>)
 
 Save the B<App::Hashl> object with all data to I<$file>.  It can later be