--- trunk/lib/Frey/Introspect.pm 2008/12/01 22:44:41 661
+++ trunk/lib/Frey/Introspect.pm 2008/12/01 23:28:27 662
@@ -241,7 +241,9 @@
my $runnable = join("\n",
map {
$introspect->{runnable}->{$_}++;
- qq|$_|
+ my $short = $_;
+ $short =~ s{_as_(?:markup|data|sponge)$}{};
+ qq|$short|
} $self->class_runnable( $class )
);
$runnable = " runnable: $runnable" if $runnable;