--- trunk/lib/Frey/ClassBrowser.pm	2008/11/19 15:28:23	455
+++ trunk/lib/Frey/ClassBrowser.pm	2008/11/19 16:53:13	457
@@ -39,10 +39,10 @@
 		push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table');
 		my @class_methods = $self->class_methods( $class );
 		
-		push @run, qq|<a href="/$class/$_">$_</a>|
-			foreach ( grep { m{^as_} } @class_methods );
+		push @run, qq|<a href="/$class/as_$_">$_</a>|
+			foreach ( map { s{^as_}{} } $self->class_runnable( $class ) );
 		push @input, $_
-			foreach ( grep { m{^(markup/as_data/as_sponge)$} } @class_methods );
+			foreach $self->class_inputs( $class );
 
 		$usage->{$class} ||= 0;
 		$html