--- 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|<a target="$class" href="/$class/$_">$_</a>|
+			my $short = $_;
+			$short =~ s{_as_(?:markup|data|sponge)$}{};
+			qq|<a target="$class" href="/$class/$_" title="/$class/$_">$short</a>|
 		} $self->class_runnable( $class )
 	);
 	$runnable = " runnable: $runnable" if $runnable;