--- trunk/lib/Frey/Introspect.pm 2008/11/19 16:53:13 457
+++ trunk/lib/Frey/Introspect.pm 2008/11/24 22:56:41 506
@@ -13,7 +13,7 @@
use lib 'lib';
-extends 'Frey::ClassLoader';
+extends 'Frey::PPI';
with 'Frey::Web';
has 'class' => (
@@ -22,10 +22,6 @@
required => 1,
);
-has 'path' => (
- is => 'rw',
-);
-
=head2 joose
my $js = $o->joose;
@@ -98,7 +94,6 @@
my $path = "static/blib/$filename";
write_file( $path, $out );
warn "# created $path\n";
- $self->path( $path );
return $out;
}
@@ -230,17 +225,29 @@
my $runnable = join("\n",
- map { qq|$_| : '' } $self->class_runnable( $class );
+ map {
+ 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|