diff --git a/.perltidyrc b/.perltidyrc index 0c172ab0..b170029e 100644 --- a/.perltidyrc +++ b/.perltidyrc @@ -36,7 +36,8 @@ # --comma-arrow-breakpoints=3 # commas after => aren't special # we only want this sometimes --break-after-labels=2 # never break after labels ---valign-if-unless # vertically align if and unless +# --valign-if-unless # vertically align if and unless + # doesn't really help --delete-repeated-commas # delete repeated commas --want-trailing-commas="w(h W(m [m {m" # trailing commas for arrays and hashes diff --git a/lib/Devel/Cover/Collection.pm b/lib/Devel/Cover/Collection.pm index 4d7648d9..616b31e4 100644 --- a/lib/Devel/Cover/Collection.pm +++ b/lib/Devel/Cover/Collection.pm @@ -304,7 +304,7 @@ sub generate_html ($self) { my $n = 0; for my $module (@modules) { my $cover = "$d/$module/cover.json"; - next unless -e $cover; + next unless -e $cover; say "Adding $module" if $self->verbose; my $io = Devel::Cover::DB::IO::JSON->new; @@ -468,10 +468,10 @@ sub cover_modules ($self) { if ($self->is_covered($dir)) { $self->set_covered($dir); say "$module already covered" if $self->verbose; - return unless $self->force; + return unless $self->force; } elsif ($self->is_failed($dir)) { say "$module already failed" if $self->verbose; - return unless $self->force; + return unless $self->force; } my $timeout = $self->get_timeout;