330 |
} |
} |
331 |
|); |
|); |
332 |
|
|
333 |
|
my $right = join('<br>', |
334 |
|
grep { $_ } ( |
335 |
|
$runnable, |
336 |
|
$has_tests, |
337 |
|
$pod ? qq|<a class="frey-skip" href="#___top" title="Skip to POD" >pod</a>| : '', |
338 |
|
$source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '', |
339 |
|
) |
340 |
|
); |
341 |
return join("\n", |
return join("\n", |
342 |
qq| |
qq| |
343 |
<h1>$class</h1> |
<h1>$class</h1> |
346 |
<br>$includes |
<br>$includes |
347 |
</div> |
</div> |
348 |
<div class="right"> |
<div class="right"> |
349 |
|, |
$right |
|
join('<br>', grep { $_ } ( $runnable, $has_tests )), |
|
|
$pod ? qq|<a class="frey-skip" href="#___top" title="Skip to POD" >pod</a>| : '', |
|
|
$source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '', |
|
|
qq| |
|
350 |
</div> |
</div> |
351 |
$table |
$table |
352 |
$pod |
$pod |