CPAN-Dependency
view release on metacpan or search on metacpan
eg/mkreport view on Meta::CPAN
<link rel="stylesheet" type="text/css" href="style.css" />
</head>
<body>
<h1>CPAN::Dependency Results</h1>
<p>This page is generated by running the script <i>eg/mkreport</i>
using the file <i>deps.yml</i>, which contains the dependency tree.
<i>deps.yml</i> itself can be generated either by running the script
<i>eg/find_deps</i> then <i>eg/score</i>, or by running the script
<i>eg/cpants</i> using the CPANTS database. </p>
<p>It's only here to show some of the information you can
gather using <code>CPAN::Dependency</code>. </p>
<table id="by_score" class="board">
<caption>Distributions sorted by score</caption>
<thead>
<tr><th>Distribution</th> <th>Score</th></tr>
</thead>
<tbody>
HTML
my $row = <<'ROW';
<tr>
<td><a href="http://search.cpan.org/dist/%s"
title="Read the documentation of this distribution on Search CPAN"
>%s</a> [<a href="http://cpan.uwinnipeg.ca/dist/%s"
title="Read the documentation of this distribution on Kobesearch"
>mirror</a>]
<div class="popup %s"><div><strong>%s</strong> %s</div></div>
</td>
<td>%d</td>
</tr>
ROW
for my $dist (@most_popular[0..$num-1]) {
printf OUT $row, $dist, $dist, $dist,
'used-by', "Used by:", join(', ', sort keys %{$deps->{$dist}{used_by}}),
$deps->{$dist}{score}
}
print OUT <<'HTML';
</tbody>
</table>
<table id="by_prereqs" class="board">
<caption>Distributions sorted by number of prerequisites</caption>
<thead>
<tr><th>Distribution</th> <th>Prereqs</th></tr>
</thead>
<tbody>
HTML
for my $dist (@biggest_users[0..$num-1]) {
printf OUT $row, $dist, $dist, $dist,
'prereqs', "Prerequisites:", join(', ', sort keys %{$deps->{$dist}{prereqs}}),
scalar keys %{ $deps->{$dist}{prereqs} }
}
my $date = localtime((stat($deps_file))[9]);
print OUT <<"HTML";
</tbody>
</table>
<p style="clear: both"></p>
<p>Generated using data as of $date. </p>
</body>
</html>
HTML
close(OUT);
( run in 2.573 seconds using v1.01-cache-2.11-cpan-524268b4103 )