From d737f0e7bc48921960d8a101c4e8d17ec414896a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 21 May 2011 13:05:39 +0200
Subject: App/Hashl: Add unignore function (not yet used in hashl itself)

---
 lib/App/Hashl.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'lib/App/Hashl.pm')

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
-- 
cgit v1.2.3