--- trunk/lib/Frey/ClassBrowser.pm 2008/07/16 16:03:09 144
+++ trunk/lib/Frey/ClassBrowser.pm 2008/11/01 00:14:05 223
@@ -2,9 +2,9 @@
use Moose;
extends 'Frey';
-with 'Frey::Web';
use Frey::ClassLoader;
+use Frey::Run;
our $markup;
@@ -21,18 +21,15 @@
$html .= qq|design| if $package->can('collection');
}
}
- $html .= qq|
|;
- $html .= qq|collection| if $package->can('collection_table');
- $html .= qq| | |;
+ my @inspect;
+ 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;
$markup = $html;
}
-sub html {
- my ( $self, $req ) = @_;
- my $html = $self->page( body => qq|Classes
| . $self->markup );
- $req->print( $html );
-}
-
1;