--- trunk/lib/Frey/Introspect.pm 2008/11/20 10:55:56 471
+++ trunk/lib/Frey/Introspect.pm 2008/11/24 21:36:01 501
@@ -13,7 +13,7 @@
use lib 'lib';
-extends 'Frey::ClassLoader';
+extends 'Frey::PPI';
with 'Frey::Web';
has 'class' => (
@@ -226,18 +226,28 @@
my $runnable = join("\n",
map {
- qq|$_|
+ qq|$_|
} $self->class_runnable( $class )
);
$runnable = " runnable: $runnable" if $runnable;
$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|