--- trunk/lib/Frey/ClassBrowser.pm 2008/11/19 00:47:22 433 +++ trunk/lib/Frey/ClassBrowser.pm 2008/11/19 01:21:31 434 @@ -3,12 +3,24 @@ extends 'Frey::ClassLoader'; with 'Frey::Web'; +with 'Frey::Session'; use Frey::Run; +use Data::Dump qw/dump/; + +has 'usage_on_top' => ( + is => 'rw', + isa => 'Bool', + default => 1, + documentation => 'Show usage on top of list', +); sub markup { my $self = shift; - my @rows; + my $row; + + my $usage = $self->session_dump( $self->usage ); + #warn "# usage ",dump( $usage ); foreach my $class ( $self->classes ) { my $html = qq|