--- trunk/lib/Frey/Introspect.pm 2008/11/20 10:55:56 471
+++ trunk/lib/Frey/Introspect.pm 2008/11/24 21:16:27 496
@@ -13,7 +13,7 @@
use lib 'lib';
-extends 'Frey::ClassLoader';
+extends 'Frey::PPI';
with 'Frey::Web';
has 'class' => (
@@ -233,11 +233,21 @@
$self->title( $class );
+ my $has_tests = '';
+ if ( my @tests = $self->has_tests ) {
+ $has_tests =
+ '
test' . ( $#tests > 0 ? 's' : '' ) . ': ' .
+ join("\n", map {
+ qq|$_|
+ } @tests );
+ }
+
return join("\n",
qq|