Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add perl version and OS to html_basic.

  • Loading branch information...
commit ad0ce5a2ad70ec42d40af8f4ed98cf0560d9482c 1 parent 3218d7b
@pjcj authored
Showing with 10 additions and 0 deletions.
  1. +10 −0 lib/Devel/Cover/Report/Html_basic.pm
View
10 lib/Devel/Cover/Report/Html_basic.pm
@@ -409,6 +409,8 @@ sub report
sprintf "%04d-%02d-%02d %02d:%02d:%02d",
$year + 1900, $mon + 1, $mday, $hour, $min, $sec
},
+ perl_v => $] < 5.010 ? $] : $^V,
+ os => $^O,
options => $options,
version => $LVERSION,
showing => [ grep $options->{show}{$_}, $db->criteria ],
@@ -542,6 +544,14 @@ $Templates{summary} = <<'EOT';
<td class="sv" align="left">[% R.date %]</td>
</tr>
<tr>
+ <td class="sh" align="right">Perl version:</td>
+ <td class="sv" align="left">[% R.perl_v %]</td>
+ </tr>
+ <tr>
+ <td class="sh" align="right">OS:</td>
+ <td class="sv" align="left">[% R.os %]</td>
+ </tr>
+ <tr>
<td class="sh" align="right">C0:</td>
<td class="sv c0" align="left">&lt;&nbsp;[% R.options.report_c0 %]%</td>
</tr>
Please sign in to comment.
Something went wrong with that request. Please try again.