--- trunk/lib/Frey/ClassBrowser.pm 2008/07/14 21:22:43 121 +++ trunk/lib/Frey/ClassBrowser.pm 2008/11/18 12:55:32 408 @@ -1,39 +1,43 @@ package Frey::ClassBrowser; use Moose; -extends 'Frey'; -with 'Frey::Web'; +extends 'Frey::ClassLoader'; -use Frey::ClassLoader; +use Frey::Run; our $markup; sub markup { - my $f = Frey::ClassLoader->new; - my $classes = dom2html( - table => [ - map { - my $package = $_; - ( tr => [ - td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ], - td => [ - $package->can('meta') ? - $package->meta->isa('Moose::Meta::Role') ? 'role' : - ( a => { href => '/od/' . $package } => [ 'design' ] ) : - '' - ], - td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ], - ] ) - } $f->classes - ], - ); - $markup = $classes; -} - -sub html { - my ( $self, $req ) = @_; - my $html = $self->page( body => qq|