Devel-StatProfiler
view release on metacpan or search on metacpan
share/files.tmpl view on Meta::CPAN
? my %variables = %{$_[0]};
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="statprofiler.css">
<script src="sorttable.js"></script>
<title>StatProfiler: file list</title>
</head>
<body>
?= $variables{include}->('header', $_[0])
<div id="body-content">
<table class="sortable">
<caption>Files, sorted by exclusive sample count</caption>
<tr>
<th class="sorttable_sorted">Exclusive</th>
<th>Report</th>
</tr>
<? my ($file_name, $format_total_ratio) = @variables{qw(file_name format_total_ratio)};
for my $file (@{$variables{files}}) {
?>
<tr>
<td sorttable_customkey="<?= $file->{exclusive} ?>"><?= $format_total_ratio->($file->{exclusive}) ?></td>
<td><a href="<?= $file->{report} ?>"><?= $file_name->($file->{name}) ?></a></td>
</tr>
? }
</table>
</div>
</body>
</html>
( run in 0.909 second using v1.01-cache-2.11-cpan-acf6aa7dc9e )