--- trunk/lib/Frey/ClassBrowser.pm 2008/07/17 18:00:55 158
+++ trunk/lib/Frey/ClassBrowser.pm 2008/10/31 19:51:51 213
@@ -21,16 +21,17 @@
$html .= qq|design| if $package->can('collection');
}
}
- $html .= qq|
|;
- $html .= qq|collection| if $package->can('collection_table');
- $html .= qq|markup| if $package->can('markup');
- $html .= qq| | |;
+ 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');
+ $html .= qq|| . join(' ', @inspect) . qq| | |;
}
$html = "" if $html;
$markup = $html;
}
-sub html {
+sub request {
my ( $self, $req ) = @_;
my $html = $self->page( body => qq|Classes
| . $self->markup );
$req->print( $html );