From d737f0e7bc48921960d8a101c4e8d17ec414896a Mon Sep 17 00:00:00 2001 From: Daniel Friesel 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') 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 object with all data to I<$file>. It can later be -- cgit v1.2.3