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 <p...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits