--- trunk/lib/Frey/Class/Browser.pm 2008/12/12 18:01:48 820
+++ trunk/lib/Frey/Class/Browser.pm 2008/12/12 18:02:39 821
@@ -38,6 +38,8 @@
Frey::Web->meta->apply( $self );
}
+ my $runnable = $self->load('var/Frey/Class/Browser/runnable.yaml');
+
foreach my $class ( $self->classes ) {
my $icon = $self->icon_path( $class );
@@ -61,12 +63,15 @@
}
}
+ my @runnable = @{ $runnable->{ $class } } if defined $runnable->{ $class };
+ @runnable = $self->class_runnable( $class ) unless @runnable;
+
my @run = map {
my $invoke = $_;
s{^as_}{};
s{_as_\w+}{};
qq|$_|;
- } $self->class_runnable( $class );
+ } @runnable;
push @run, qq|collection| if $class->can('collection_table');
my @inputs = $self->class_inputs( $class );