241 |
my $runnable = join("\n", |
my $runnable = join("\n", |
242 |
map { |
map { |
243 |
$introspect->{runnable}->{$_}++; |
$introspect->{runnable}->{$_}++; |
244 |
qq|<a target="$class" href="/$class/$_">$_</a>| |
my $short = $_; |
245 |
|
$short =~ s{_as_(?:markup|data|sponge)$}{}; |
246 |
|
qq|<a target="$class" href="/$class/$_" title="/$class/$_">$short</a>| |
247 |
} $self->class_runnable( $class ) |
} $self->class_runnable( $class ) |
248 |
); |
); |
249 |
$runnable = " runnable: $runnable" if $runnable; |
$runnable = " runnable: $runnable" if $runnable; |