/[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 19 by dpavlin, Sun Jun 29 12:55:39 2008 UTC trunk/lib/Frey/View.pm revision 26 by dpavlin, Sun Jun 29 18:08:50 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 Frey;
8    use base qw/Template::Declare/;
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10    use Carp qw/carp/;
11    
12  template status => sub {  sub debug_dump {
13          my ( $self ) = @_;          my $dump = dump( @_ );
14          p { 'Welcome to Frey' }          carp "debug_dump $dump\n";
         h1 { 'Available templates' }  
15          pre {          pre {
16                  { class is 'debug' }                  { class is 'debug' }
17                  outs dump( Template::Declare->templates )                  outs $dump;
18            }
19    }
20    
21    template 'status' => sub {
22            my ( $self ) = @_;
23            p { 'Welcome to Frey' }
24            show( 'templates' );
25            show( 'classes' );
26    };
27    
28    template 'templates' => sub {
29            h1 { 'Available templates' };
30            my $templates = Template::Declare->templates;
31            debug_dump( $templates );
32            ul {
33                    foreach my $pkg ( keys %$templates ) {
34                            li {
35                                    outs $pkg;
36                                    ul {
37                                            foreach my $template ( @{ $templates->{$pkg} } ) {
38                                                    li {
39                                                            a {
40                                                                    { href is "/$pkg/$template" }
41                                                                    $template
42                                                            }
43                                                    }
44                                            }
45                                    }
46                            }
47                    }
48            }
49    };
50    
51    template 'classes' => sub {
52            my $self = shift;
53            h1 { 'All classes in image' };
54            my $f = Frey->new;
55            debug_dump( $f->classes );
56    };
57    
58    template 'error' => sub {
59            my $self = shift;
60            p {
61                    { class is 'error' }
62                    outs( @_ );
63          }          }
64  };  };
65    
Legend:
Removed from v.19  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26