--- trunk/lib/Frey/ClassBrowser.pm 2008/10/31 22:48:45 218
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/05 08:20:46 272
@@ -4,6 +4,7 @@
extends 'Frey';
use Frey::ClassLoader;
+use Frey::Run;
our $markup;
@@ -12,18 +13,19 @@
my $f = Frey::ClassLoader->new;
my $html;
foreach my $package ( $f->classes ) {
- $html .= qq|
$package | |;
+ $html .= qq| |
$package | |;
if ( $package->can('meta') ) {
if ( $package->meta->isa('Moose::Meta::Role') ) {
$html .= qq|role|;
} else {
- $html .= qq|design| if $package->can('collection');
+ $html .= qq|design| if $package->can('collection');
}
}
my @inspect;
- push @inspect, qq|collection| if $package->can('collection_table');
- push @inspect, qq|markup| if $package->can('markup');
- push @inspect, qq|request| if $package->can('request');
+ push @inspect, qq|collection| if $package->can('collection_table');
+ foreach my $try ( Frey::Run->execute ) {
+ push @inspect, qq|$try| if $package->can($try);
+ }
$html .= qq| | | . join(' ', @inspect) . qq| |
|;
}
$html = "" if $html;