223 |
# $source =~ s{^.*<body[^>]+>}{}s; |
# $source =~ s{^.*<body[^>]+>}{}s; |
224 |
# $source =~ s{</body.*$}{}s; |
# $source =~ s{</body.*$}{}s; |
225 |
|
|
|
|
|
226 |
my $runnable = join("\n", |
my $runnable = join("\n", |
227 |
map { |
map { |
228 |
qq|<a target="$_" href="/$class/$_">$_</a>| |
qq|<a target="$class" href="/$class/$_">$_</a>| |
229 |
} $self->class_runnable( $class ) |
} $self->class_runnable( $class ) |
230 |
); |
); |
231 |
$runnable = " runnable: $runnable" if $runnable; |
$runnable = " runnable: $runnable" if $runnable; |
237 |
$has_tests = |
$has_tests = |
238 |
'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' . |
'<br/>test' . ( $#tests > 0 ? 's' : '' ) . ': ' . |
239 |
join("\n", map { |
join("\n", map { |
240 |
qq|<a target="test" href="/Frey::Test::Runner/as_markup?test=$_">$_</a>| |
qq|<a target="$class" href="/Frey::Test::Runner/as_markup?test=$_">$_</a>| |
241 |
} @tests ); |
} @tests ); |
242 |
} |
} |
243 |
|
|