[libdevel-cover-perl] 12/32: Split cpancover reports by first letter of dist.
Axel Beckert
abe at deuxchevaux.org
Sun Apr 26 22:26:36 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 c81c023d036891ed8cca328143acb46e6a79c42c
Author: Paul Johnson <paul at 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
More information about the Pkg-perl-cvs-commits
mailing list