/[Frey]/trunk/lib/Frey/ClassBrowser.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/ClassBrowser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 120 by dpavlin, Sun Jul 13 18:51:29 2008 UTC revision 121 by dpavlin, Mon Jul 14 21:22:43 2008 UTC
# Line 1  Line 1 
1  package Frey::ClassBrowser;  package Frey::ClassBrowser;
2  use Moose;  use Moose;
3    
4    extends 'Frey';
5  with 'Frey::Web';  with 'Frey::Web';
6    
7  use Frey::ClassLoader;  use Frey::ClassLoader;
8    
9  our $markup;  our $markup;
10    
11  sub html_markup {  sub markup {
         my $self = shift;  
         return $markup if $markup;  
12          my $f = Frey::ClassLoader->new;          my $f = Frey::ClassLoader->new;
13          my $classes = dom2html(          my $classes = dom2html(
14                  table => [                  table => [
# Line 31  sub html_markup { Line 30  sub html_markup {
30          $markup = $classes;          $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;  1;
Legend:
Removed from v.120  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.26