--- trunk/lib/Frey/ClassBrowser.pm 2008/11/18 12:55:32 408
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/18 13:52:26 409
@@ -23,10 +23,10 @@
my @run;
my @input;
push @run, qq|collection| if $class->can('collection_table');
- my @methods = $self->class_methods( $class );
+ my $class_method = $self->class_methods( $class );
foreach my $try ( Frey::Run->runnable ) {
next unless $class->can($try);
- if ( grep { /^\Q$try\E$/ } @methods ) {
+ if ( $class_method->{ $try } ) {
push @run, qq|$try|;
} else {
push @input, $try;