lib/Frey/ClassBrowser.pm

package Frey::ClassBrowser;
use Moose;

with 'Frey::Web';

use Frey::ClassLoader;

our $markup;

sub html_markup {
        my $self = shift;
        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;
}

1;
1	package Frey::ClassBrowser;
2	use Moose;
3
4	with 'Frey::Web';
5
6	use Frey::ClassLoader;
7
8	our $markup;
9
10	sub html_markup {
11	my $self = shift;
12	return $markup if $markup;
13	my $f = Frey::ClassLoader->new;
14	my $classes = dom2html(
15	table => [
16	map {
17	my $package = $_;
18	( tr => [
19	td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ],
20	td => [
21	$package->can('meta') ?
22	$package->meta->isa('Moose::Meta::Role') ? 'role' :
23	( a => { href => '/od/' . $package } => [ 'design' ] ) :
24	''
25	],
26	td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ],
27	] )
28	} $f->classes
29	],
30	);
31	$markup = $classes;
32	}
33
34	1;