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 ); |
251 |
$self->title( $class ); |
$self->title( $class ); |
252 |
|
|
253 |
my $has_tests = ''; |
my $has_tests = ''; |
254 |
if ( my @tests = $self->has_tests ) { |
my @tests = grep { defined $_ } $self->has_tests; |
255 |
|
if ( @tests ) { |
256 |
$has_tests = |
$has_tests = |
257 |
'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' . |
'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' . |
258 |
join("\n", map { |
join("\n", map { |