213 |
} |
} |
214 |
$table .= qq|</table>|; |
$table .= qq|</table>|; |
215 |
|
|
216 |
my $pod = Frey::Pod->new( class => $class )->as_markup; |
my $pod = Frey::Pod->new( class => $class, request_url => $self->request_url )->as_markup; |
217 |
$pod = $pod->{body} if ref($pod); |
$pod = $pod->{body} if ref($pod); |
218 |
|
|
219 |
my $path = $self->class_path( $class ); |
my $path = $self->class_path( $class ); |
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; |
253 |
$self->title( $class ); |
$self->title( $class ); |
254 |
|
|
255 |
my $has_tests = ''; |
my $has_tests = ''; |
256 |
if ( my @tests = $self->has_tests ) { |
my @tests = grep { defined $_ } $self->has_tests; |
257 |
|
if ( @tests ) { |
258 |
$has_tests = |
$has_tests = |
259 |
'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' . |
'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' . |
260 |
join("\n", map { |
join("\n", map { |