229 |
# $source =~ s{</body.*$}{}s; |
# $source =~ s{</body.*$}{}s; |
230 |
|
|
231 |
|
|
|
use Frey::Run; |
|
|
my $class_method = $self->class_methods( $class ); |
|
232 |
my $runnable = join("\n", |
my $runnable = join("\n", |
233 |
map { $class_method->{$_} ? qq|<a href="/$class/$_">$_</a>| : '' } grep { $class->can($_) } Frey::Run->runnable |
map { |
234 |
|
qq|<a href="/$class/$_">$_</a>| |
235 |
|
} $self->class_runnable( $class ) |
236 |
); |
); |
237 |
$runnable = " runnable: $runnable" if $runnable; |
$runnable = " runnable: $runnable" if $runnable; |
238 |
|
|