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

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

trunk/lib/View.pm revision 8 by dpavlin, Sat Jun 28 18:45:00 2008 UTC trunk/lib/Frey/View.pm revision 23 by dpavlin, Sun Jun 29 16:24:41 2008 UTC
# Line 1  Line 1 
1  package View;  package Frey::View;
2    
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6  use Template::Declare::Tags; # defaults to 'HTML'  use Template::Declare::Tags; # defaults to 'HTML'
7  use base 'Template::Declare';  use base 'Template::Declare';
   
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  use Strix::User;  template status => sub {
11  my $user = Strix::User->new( id => 1 );          my ( $self ) = @_;
12            p { 'Welcome to Frey' }
13  template user => sub {          h1 { 'Available templates' };
14          html {          my $templates = Template::Declare->templates;
15                  head {}          warn "templates = ",dump( $templates );
16                  body {          ul {
17                          p {'Hello, world wide web!'}                  foreach my $pkg ( keys %$templates ) {
18                          pre {                          li {
19                                  outs( dump( $user ) );                                  outs $pkg;
20                                    ul {
21                                            foreach my $template ( @{ $templates->{$pkg} } ) {
22                                                    li {
23                                                            a {
24                                                                    { href is "/$pkg/$template" }
25                                                                    $template
26                                                            }
27                                                    }
28                                            }
29                                    }
30                          }                          }
31                  }                  }
32          }          }
33            pre {
34                    { class is 'debug' }
35                    outs dump( Template::Declare->templates )
36            }
37    };
38    
39    template 'refresh_modules' => sub {
40            Module::Refresh->refresh;
41            p { 'Modules refreshed' }
42  };  };
43    
44  1;  1;
Legend:
Removed from v.8  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.26