[libdevel-cover-perl] 17/32: Add a little cpancover output.
Axel Beckert
abe at deuxchevaux.org
Sun Apr 26 22:26:37 UTC 2015
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag v1.18
in repository libdevel-cover-perl.
commit 55bd0f2a1d6a073f19c8e2c512d246298ed1beeb
Author: Paul Johnson <paul at pjcj.net>
Date: Tue Oct 14 23:37:07 2014 +0100
Add a little cpancover output.
---
lib/Devel/Cover/Collection.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lib/Devel/Cover/Collection.pm b/lib/Devel/Cover/Collection.pm
index 604b48c..9d2c2ac 100644
--- a/lib/Devel/Cover/Collection.pm
+++ b/lib/Devel/Cover/Collection.pm
@@ -307,6 +307,7 @@ sub generate_html {
my @modules = sort grep !/^\./, readdir $dh;
closedir $dh or die "Can't closedir $d: $!";
+ my $n = 0;
for my $module (@modules) {
my $cover = "$d/$module/cover.json";
next unless -e $cover;
@@ -343,8 +344,11 @@ sub generate_html {
$m->{$criterion}{details} =
($summary->{covered} || 0) . " / " . ($summary->{total} || 0);
}
+
+ print "." if !($n++ % 1000) && !$self->verbose;
}
+ $n = 0;
for my $file (@modules) {
# say "looking at [$file]";
my ($module) = $file =~ /^ \w - \w\w - \w+ - (.*)
@@ -353,6 +357,7 @@ sub generate_html {
or next;
# say "found at [$module]";
$vars->{vals}{$module}{log} = $file;
+ print "-" if !($n++ % 1000) && !$self->verbose;
}
# print "vars ", Dumper $vars;
@@ -374,7 +379,7 @@ sub generate_html {
# print Dumper $vars;
$self->write_json($vars);
- say "Wrote collection output to $f";
+ say "\nWrote collection output to $f";
}
sub local_build {
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdevel-cover-perl.git
More information about the Pkg-perl-cvs-commits
mailing list