/[Perly]/lib/Perly/View.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 /lib/Perly/View.pm

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

revision 41 by dpavlin, Sun Jun 1 17:31:43 2008 UTC revision 46 by dpavlin, Sun Jun 8 18:34:21 2008 UTC
# Line 19  template '/edit' => page { Line 19  template '/edit' => page {
19  };  };
20    
21  private template 'code_list' => sub {  private template 'code_list' => sub {
22          ul {          my $coll = Perly::Model::CodeCollection->new();
23                  my $coll = Perly::Model::CodeCollection->new();          $coll->unlimit;
24                  $coll->unlimit;          while ( my $code = $coll->next ) {
25                  while ( my $code = $coll->next ) {                  div {
26                          li {                          { class is 'code-name' }
27                                  a {                          hyperlink( url => '/edit/id=' . $code->id, label => $code->name ),
28                                          attr { href => '/edit/id=' . $code->id, },                          small { length( $code->source ), ' bytes ', $code->created_on, ' ' },
29                                          $code->name,                          hyperlink( url => '/run/code=' . $code->id, label => 'run' ),
30                                  },                  };
31                                  small { length( $code->source ), ' bytes ', $code->created_on },                  outs_raw( Perly::SyntaxHighlight->color( $code->source ) )
                                 a {  
                                         attr { href => '/run/code=' . $code->id, }, 'run'  
                                 },  
                                 outs_raw( Perly::SyntaxHighlight->color( $code->source ) )  
                         }  
                 }  
32          }          }
33  };  };
34    
Legend:
Removed from v.41  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26