--- trunk/lib/Frey/ClassBrowser.pm 2008/09/13 15:31:54 187 +++ trunk/lib/Frey/ClassBrowser.pm 2008/10/31 19:51:51 213 @@ -24,14 +24,14 @@ my @inspect; push @inspect, qq|collection| if $package->can('collection_table'); push @inspect, qq|markup| if $package->can('markup'); - push @inspect, qq|html| if $package->can('html'); + push @inspect, qq|request| if $package->can('request'); $html .= qq|| . join(' ', @inspect) . qq||; } $html = "$html
" if $html; $markup = $html; } -sub html { +sub request { my ( $self, $req ) = @_; my $html = $self->page( body => qq|

Classes

| . $self->markup ); $req->print( $html );