Parent Directory | Revision Log
central page creation [0.11] - make (optional) development feature in Makefile.PL - split page generation in Frey::Web->page - cleanup of html generation code all over - jump to Carp::REPL on errors (nice, but needs to be in browser) This is a move to more embedded html. While it does seem evil, we are aming here at lean framework, so readability is prefered...
1 | package Frey::ClassBrowser; |
2 | use Moose; |
3 | |
4 | extends 'Frey'; |
5 | with 'Frey::Web'; |
6 | |
7 | use Frey::ClassLoader; |
8 | |
9 | our $markup; |
10 | |
11 | sub markup { |
12 | my $f = Frey::ClassLoader->new; |
13 | my $classes = dom2html( |
14 | table => [ |
15 | map { |
16 | my $package = $_; |
17 | ( tr => [ |
18 | td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ], |
19 | td => [ |
20 | $package->can('meta') ? |
21 | $package->meta->isa('Moose::Meta::Role') ? 'role' : |
22 | ( a => { href => '/od/' . $package } => [ 'design' ] ) : |
23 | '' |
24 | ], |
25 | td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ], |
26 | ] ) |
27 | } $f->classes |
28 | ], |
29 | ); |
30 | $markup = $classes; |
31 | } |
32 | |
33 | sub html { |
34 | my ( $self, $req ) = @_; |
35 | my $html = $self->page( body => qq|<h1>Classes</h1>| . $self->markup ); |
36 | $req->print( $html ); |
37 | } |
38 | |
39 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |