Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Harmonise report output.

  • Loading branch information...
commit beda8e5a88b308a79ad05d827b1c0da6c8cda2e1 1 parent e26fe4b
@pjcj authored
View
2  lib/Devel/Cover/Report/Html_basic.pm
@@ -445,7 +445,7 @@ sub report
print_subroutines if $show->{subroutine} || $show->{pod};
}
- print "HTML output sent to $html\n";
+ print "HTML output written to $html\n" unless $options->{silent};
}
1;
View
5 lib/Devel/Cover/Report/Html_minimal.pm
@@ -353,8 +353,6 @@ sub print_summary_report {
my $outfile = "$options->{outputdir}/$options->{option}{outputfile}";
- print "Writing HTML output to $outfile ...\n" unless $options->{silent};
-
open(my $fh, '>', $outfile)
or warn("Unable to open file '$outfile' [$!]\n"), return;
@@ -428,6 +426,9 @@ END_HTML
}
print $fh "</table>\n</body>\n</html>\n";
close($fh) or warn "Unable to close '$outfile' [$!]";
+
+ print "HTML output written to $outfile\n" unless $options->{silent};
+
}
View
7 lib/Devel/Cover/Report/Vim.pm
@@ -89,9 +89,10 @@ sub report
} @{$options->{file}},
};
- $template->process("vim", $vars,
- "$options->{outputdir}/$options->{outputfile}")
- or die $template->error();
+ my $out = "$options->{outputdir}/$options->{outputfile}";
+ $template->process("vim", $vars, $out) or die $template->error();
+
+ print "Vim script written to $out\n" unless $options->{silent};
}
1;
Please sign in to comment.
Something went wrong with that request. Please try again.