--- trunk/lib/Frey/ClassBrowser.pm 2008/07/13 18:51:29 119 +++ trunk/lib/Frey/ClassBrowser.pm 2008/10/31 19:51:51 213 @@ -1,34 +1,40 @@ package Frey::ClassBrowser; use Moose; +extends 'Frey'; with 'Frey::Web'; use Frey::ClassLoader; our $markup; -sub html_markup { - my $self = shift; +sub markup { return $markup if $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; + my $html; + foreach my $package ( $f->classes ) { + $html .= qq|