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

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

revision 14 by dpavlin, Sun Jun 29 00:36:08 2008 UTC revision 21 by dpavlin, Sun Jun 29 13:12:59 2008 UTC
# Line 6  use warnings; Line 6  use warnings;
6  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8  use Carp qw/confess/;  use Carp qw/confess/;
9  use View;  
10    # FIXME
11    
12    our @view_classes = qw(
13            Frey::View
14            Frey::REST
15            Strix::View
16    );
17    
18    warn "Using view classes ", dump( @view_classes );
19    
20    foreach ( @view_classes ) {
21            my $path = $_;
22            $path =~ s!::!/!g;
23            $path .= '.pm';
24            require $path or warn "Can't require $_ from $path: $!";
25    }
26    
27  warn "available templates = ",dump( Template::Declare->templates );  warn "available templates = ",dump( Template::Declare->templates );
28    
# Line 14  our @javascript; Line 30  our @javascript;
30    
31  use Template::Declare;  use Template::Declare;
32  use Template::Declare::Tags; # defaults to 'HTML'  use Template::Declare::Tags; # defaults to 'HTML'
33  Template::Declare->init( roots => ['HTML','View'], around_template => sub {  Template::Declare->init( roots => \@view_classes, around_template => sub {
34          my ($orig, $path, $args, $code) = @_;          my ($orig, $path, $args, $code) = @_;
35          my $t = time;          my $t = time;
36          html {          html {
Legend:
Removed from v.14  
changed lines
  Added in v.21
  ViewVC Help
Powered by ViewVC 1.1.26