/[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 606 by dpavlin, Fri Nov 28 13:18:18 2008 UTC revision 607 by dpavlin, Fri Nov 28 23:22:22 2008 UTC
# Line 16  has 'usage_on_top' => ( Line 16  has 'usage_on_top' => (
16          documentation => 'Show usage on top of list',          documentation => 'Show usage on top of list',
17  );  );
18    
19    our $usage;
20    
21  sub as_markup {  sub as_markup {
22          my $self = shift;          my $self = shift;
23          my $row;          my $row;
24          my @icons;          my @icons;
25    
26          my $usage = $self->session_dump( $self->usage );          $usage ||= $self->session_dump( $self->usage );
27          #warn "# usage ",dump( $usage );          #warn "# usage ",dump( $usage );
28          foreach my $class ( $self->classes ) {          foreach my $class ( $self->classes ) {
29    
# Line 80  sub as_markup { Line 82  sub as_markup {
82                  $icons_html->{ $path } || die "can't find $path in ",dump($icons_html);                  $icons_html->{ $path } || die "can't find $path in ",dump($icons_html);
83          };          };
84    
85            $self->title('Frey');
86    
87          return          return
88                  qq|<table>| . join("\n",                  qq|<table>| . join("\n",
89                          map {                          map {
Legend:
Removed from v.606  
changed lines
  Added in v.607
  ViewVC Help
Powered by ViewVC 1.1.26