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	dpavlin	119	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;