move db_info into Hashl.pm

1 files changed, 9 insertions, 0 deletions

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) = @_;