/[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 10 by dpavlin, Tue Jun 5 12:52:40 2007 UTC revision 11 by dpavlin, Tue Jun 5 13:13:02 2007 UTC
# Line 6  use warnings; Line 6  use warnings;
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';
Legend:
Removed from v.10  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26