From 46d56664eb030587cc4e5d62fc8b8c315d440243 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 19 Aug 2012 23:20:06 +0200
Subject: hashl info: also display number of files / ignored hashes

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

diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index f0a93ce..8cd5f3c 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -115,8 +115,11 @@ sub db_info {
 	my ($self) = @_;
 
 	return sprintf(
-		"Database created by hashl v%s\n" . "Read size: %d bytes (%s)\n",
+		"Database created by hashl v%s\n" . "Read size: %d bytes (%s)\n" .
+		"contains: %d file%s and %d ignored hash%s\n",
 		$self->db_version, $self->read_size, $self->si_size( $self->read_size ),
+		scalar($self->files), (scalar($self->files) == 1 ? q{} : 's' ),
+		scalar($self->ignored), (scalar($self->ignored) == 1 ? q{} : 'es' ),
 	);
 }
 
-- 
cgit v1.2.3