229 |
my $pod = Frey::Pod->new( class => $class )->markup; |
my $pod = Frey::Pod->new( class => $class )->markup; |
230 |
|
|
231 |
use Frey::Run; |
use Frey::Run; |
232 |
my $execute = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->execute ); |
my $runnable = join("\n", map { qq|<a href="/$class/$_">$_</a>| } grep { $class->can($_) } Frey::Run->runnable ); |
233 |
$execute = " execute: $execute" if $execute; |
$runnable = " runnable: $runnable" if $runnable; |
234 |
|
|
235 |
my $html = $self->page( |
my $html = $self->page( |
236 |
title => "Introspect $class", |
title => "Introspect $class", |
237 |
body => qq|<h1>$class</h1>| |
body => qq|<h1>$class</h1>| |
238 |
. qq|<div class="frey-introspect">$superclasses\n$roles\n$execute\n| |
. qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n| |
239 |
. ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">↓pod&darr</a>| : '' ) |
. ( $pod ? qq|<a href="#___top" title="Skip to POD" style="font-size: 80%; color: #aaa;">↓pod&darr</a>| : '' ) |
240 |
. qq|$table\n$pod</div>| |
. qq|$table\n$pod</div>| |
241 |
|
|