Parent Directory | Revision Log | Patch
revision 213 by dpavlin, Fri Oct 31 19:51:51 2008 UTC | revision 218 by dpavlin, Fri Oct 31 22:48:45 2008 UTC | |
---|---|---|
# | Line 2 package Frey::ClassBrowser; | Line 2 package Frey::ClassBrowser; |
2 | use Moose; | use Moose; |
3 | ||
4 | extends 'Frey'; | extends 'Frey'; |
with 'Frey::Web'; | ||
5 | ||
6 | use Frey::ClassLoader; | use Frey::ClassLoader; |
7 | ||
# | Line 31 sub markup { | Line 30 sub markup { |
30 | $markup = $html; | $markup = $html; |
31 | } | } |
32 | ||
sub request { | ||
my ( $self, $req ) = @_; | ||
my $html = $self->page( body => qq|<h1>Classes</h1>| . $self->markup ); | ||
$req->print( $html ); | ||
} | ||
33 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |