--- trunk/lib/Frey/Introspect.pm 2008/11/24 22:56:41 506 +++ trunk/lib/Frey/Introspect.pm 2008/11/26 07:58:40 534 @@ -223,10 +223,9 @@ # $source =~ s{^.*]+>}{}s; # $source =~ s{$_| + qq|$_| } $self->class_runnable( $class ) ); $runnable = " runnable: $runnable" if $runnable; @@ -238,7 +237,7 @@ $has_tests = '
test' . ( $#tests > 0 ? 's' : '' ) . ': ' . join("\n", map { - qq|$_| + qq|$_| } @tests ); }