diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2012-08-19 23:20:06 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2012-08-19 23:20:06 +0200 |
| commit | 46d56664eb030587cc4e5d62fc8b8c315d440243 (patch) | |
| tree | 9954ee2a5850dd630eb770b1210457957ae117e9 | |
| parent | c3ba72a8a3e0bcaae29e6430279381811299bf37 (diff) | |
hashl info: also display number of files / ignored hashes
| -rw-r--r-- | lib/App/Hashl.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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' ), ); } |