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 c81c023d036891ed8cca328143acb46e6a79c42c Author: Paul Johnson <p...@pjcj.net> Date: Tue Oct 14 00:45:40 2014 +0200 Split cpancover reports by first letter of dist. --- lib/Devel/Cover/Collection.pm | 83 ++++++++++++++++++++++++++++--------------- 1 file changed, 54 insertions(+), 29 deletions(-) diff --git a/lib/Devel/Cover/Collection.pm b/lib/Devel/Cover/Collection.pm index 0f9c108..f206a98 100644 --- a/lib/Devel/Cover/Collection.pm +++ b/lib/Devel/Cover/Collection.pm @@ -294,7 +294,7 @@ sub generate_html { my $vars = { title => "Coverage report", - modules => [], + modules => {}, vals => {}, headers => [ grep !/path|time/, @Devel::Cover::DB::Criteria_short, "total" ], @@ -324,11 +324,12 @@ sub generate_html { $mod->{name} //= $name; $mod->{version} //= $version; } - push @{$vars->{modules}}, $mod; + my $start = uc substr $module, 0, 1; + push @{$vars->{modules}{$start}}, $mod; my $m = $vars->{vals}{$module} = {}; $m->{module} = $mod; - $m->{link} = "$module/index.html" + $m->{link} = "/$module/index.html" if $json->{summary}{Total}{total}{total}; for my $criterion (@{$vars->{criteria}}) { @@ -351,7 +352,14 @@ sub generate_html { ], }); $template->process("summary", $vars, $f) or die $template->error; + for my $start (sort keys %{$vars->{modules}}) { + $vars->{module_start} = $start; + my $dist = "$d/dist/$start.html"; + $template->process("module_by_start", $vars, $dist) + or die $template->error; + } + # print Dumper $vars; $self->write_json($vars); say "Wrote collection output to $f"; @@ -631,11 +639,29 @@ http://www.pjcj.net <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta> <meta http-equiv="Content-Language" content="en-us"></meta> - <link rel="stylesheet" type="text/css" href="collection.css"></link> + <link rel="stylesheet" type="text/css" href="/collection.css"></link> <title> [% title %] </title> </head> <body> [% content %] + <p/> + <hr/> + Coverage information from <a href="https://metacpan.org/module/Devel::Cover"> + Devel::Cover + </a> by <a href="http://pjcj.net">Paul Johnson</a>. + + <br/> + + Please report problems with this site to the + <a href="https://github.com/pjcj/Devel--Cover/issues">issue tracker</a> + + <br/> + <br/> + + This server generously donated by + <a href="http://www.bytemark.co.uk/r/cpancover"> + <img src="http://www.bytemark.co.uk/images/subpages/spreadtheword/bytemark_logo_179_x_14.png" alt="bytemark"/> + </a> </body> </html> EOT @@ -643,11 +669,32 @@ EOT $Templates{summary} = <<'EOT'; [% WRAPPER html %] -<h1> [% title %] </h1> +<h1> CPANCover </h1> + +<h2> Distributions </h2> + +Search for distributions by first character:<p/> + +[% FOREACH start = modules.keys.sort %] + <a href="dist/[%- start -%].html">[% start %]</a> +[% END %] + +<h2> Core coverage </h2> + +<a href="http://cpancover.com/blead/latest/coverage.html">Perl core coverage</a> +(under development) + +[% END %] +EOT + +$Templates{module_by_start} = <<'EOT'; +[% WRAPPER html %] + +<h1> [% title %] - [% modules_tart %] </h1> <table> - [% IF modules %] + [% IF modules.$module_start %] <tr align="right" valign="middle"> <th class="header" align="left" style='white-space: nowrap;'> Module </th> <th class="header"> Version </th> @@ -657,7 +704,7 @@ $Templates{summary} = <<'EOT'; </tr> [% END %] - [% FOREACH module = modules %] + [% FOREACH module = modules.$module_start %] [% m = module.module %] <tr align="right" valign="middle"> <td align="left"> @@ -683,28 +730,6 @@ $Templates{summary} = <<'EOT'; <br/> -<hr/> -Coverage information from <a href="https://metacpan.org/module/Devel::Cover"> - Devel::Cover -</a> by <a href="http://pjcj.net">Paul Johnson</a>. - -<br/> - -Please report problems with this site to the -<a href="https://github.com/pjcj/Devel--Cover/issues">issue tracker</a> - -<br/> -<a href="http://cpancover.com/blead/latest/coverage.html">Core coverage</a> -(under development) - -<br/> -<br/> - -This server generously donated by -<a href="http://www.bytemark.co.uk/r/cpancover"> - <img src="http://www.bytemark.co.uk/images/subpages/spreadtheword/bytemark_logo_179_x_14.png" alt="bytemark"/> -</a> - [% END %] EOT -- 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