From ef33ea24e3e472d8098bd490043e5c0f53d9374c Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 19 Aug 2012 12:12:30 +0200
Subject: move db_info into Hashl.pm

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

(limited to 'lib/App')

diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index dc5fca5..f17f771 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -107,6 +107,15 @@ sub read_size {
 	return $self->{config}->{read_size};
 }
 
+sub db_info {
+	my ($self) = @_;
+
+	return sprintf(
+		"Database created by hashl v%s\n" . "Read size: %d bytes (%s)\n",
+		$self->db_version, $self->read_size, $self->si_size( $self->read_size ),
+	);
+}
+
 sub db_version {
 	my ($self) = @_;
 
-- 
cgit v1.2.3