perlcritic, perltidy

1 files changed, 11 insertions, 6 deletions

diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index 8cd5f3c..68e8f6e 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -40,7 +40,7 @@ sub si_size {
 	my ( $self, $bytes ) = @_;
 	my @post = ( q{ }, qw(k M G T) );
 
-	if ($bytes == 0) {
+	if ( $bytes == 0 ) {
 		return 'infinite';
 	}
 
@@ -115,11 +115,16 @@ sub db_info {
 	my ($self) = @_;
 
 	return sprintf(
-		"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' ),
+		"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' ),
 	);
 }