Parent Directory | Revision Log | Patch
revision 40 by dpavlin, Sat Jun 9 23:18:08 2007 UTC | revision 41 by dpavlin, Sun Jun 1 17:31:43 2008 UTC | |
---|---|---|
# | Line 5 use warnings; | Line 5 use warnings; |
5 | ||
6 | use Jifty::View::Declare -base; | use Jifty::View::Declare -base; |
7 | ||
8 | use Perly::SyntaxHighlight; | |
9 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
10 | ||
11 | template '/' => page { | template '/' => page { |
# | Line 31 private template 'code_list' => sub { | Line 32 private template 'code_list' => sub { |
32 | a { | a { |
33 | attr { href => '/run/code=' . $code->id, }, 'run' | attr { href => '/run/code=' . $code->id, }, 'run' |
34 | }, | }, |
35 | pre { $code->source }, | outs_raw( Perly::SyntaxHighlight->color( $code->source ) ) |
36 | } | } |
37 | } | } |
38 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |