6 |
use Jifty::View::Declare -base; |
use Jifty::View::Declare -base; |
7 |
|
|
8 |
template '/' => page { |
template '/' => page { |
9 |
|
h1 { _("Available code") } |
10 |
|
div { show 'code_list' } |
11 |
|
}; |
12 |
|
|
13 |
|
template '/edit' => page { |
14 |
h1 { _("Enter your code") } |
h1 { _("Enter your code") } |
15 |
div { show 'code_editor' } |
div { show 'code_editor' } |
16 |
}; |
}; |
17 |
|
|
18 |
|
private template 'code_list' => sub { |
19 |
|
ul { |
20 |
|
my $coll = Perly::Model::CodeCollection->new(); |
21 |
|
$coll->unlimit; |
22 |
|
while ( my $code = $coll->next ) { |
23 |
|
li { |
24 |
|
a { |
25 |
|
attr { href => '/edit?id=' . $code->id, }, |
26 |
|
length( $code->source ), ' bytes' |
27 |
|
} |
28 |
|
pre { $code->source }, |
29 |
|
} |
30 |
|
} |
31 |
|
} |
32 |
|
}; |
33 |
|
|
34 |
private template 'code_editor' => sub { |
private template 'code_editor' => sub { |
35 |
my $content; |
my $content; |
36 |
my $op = 'Create'; |
my $op = 'Create'; |