--- trunk/lib/Frey/ClassBrowser.pm 2008/09/13 15:31:54 187 +++ trunk/lib/Frey/ClassBrowser.pm 2008/10/31 22:41:34 217 @@ -24,17 +24,11 @@ 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 { - my ( $self, $req ) = @_; - my $html = $self->page( body => qq|

Classes

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