| 244 |
); |
); |
| 245 |
$runnable = " runnable: $runnable" if $runnable; |
$runnable = " runnable: $runnable" if $runnable; |
| 246 |
|
|
| 247 |
my $html = { |
$self->title( $class ); |
|
title => $class, |
|
|
body => join("\n", |
|
|
qq|<h1>$class</h1>|, |
|
|
qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|, |
|
|
$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|$table\n$pod\n</div>\n|, |
|
|
qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|, |
|
|
), |
|
|
}; |
|
| 248 |
|
|
| 249 |
return $html; |
return join("\n", |
| 250 |
|
qq|<h1>$class</h1>|, |
| 251 |
|
qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|, |
| 252 |
|
$pod ? qq|<a class="frey-skip" href="#___top" title="Skip to POD" >pod</a>| : '', |
| 253 |
|
$source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '', |
| 254 |
|
qq|$table\n$pod\n</div>\n|, |
| 255 |
|
qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|, |
| 256 |
|
); |
| 257 |
} |
} |
| 258 |
|
|
| 259 |
=head1 SEE ALSO |
=head1 SEE ALSO |
Parent Directory
| 
Revision Log
| 
Patch