--- trunk/lib/Frey/ClassBrowser.pm 2008/11/19 15:35:34 456
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/19 16:53:13 457
@@ -39,10 +39,10 @@
push @run, qq|collection| if $class->can('collection_table');
my @class_methods = $self->class_methods( $class );
- push @run, qq|$_|
- foreach ( grep { m{^as_} } @class_methods );
+ push @run, qq|$_|
+ 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