/[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 38 by dpavlin, Mon Jun 30 20:02:08 2008 UTC revision 39 by dpavlin, Mon Jun 30 20:02:10 2008 UTC
# Line 38  our $debug = 0; Line 38  our $debug = 0;
38    
39  use Template::Declare;  use Template::Declare;
40  use Template::Declare::Tags; # defaults to 'HTML'  use Template::Declare::Tags; # defaults to 'HTML'
41    
42  Template::Declare->init( roots => \@view_classes, around_template => sub {  Template::Declare->init( roots => \@view_classes, around_template => sub {
43          my ($orig, $path, $args, $code) = @_;          my ($orig, $path, $args, $code) = @_;
44          my $from = (caller(1))[3];          my $from = (caller(1))[3];
# Line 83  Wrap template into html page Line 84  Wrap template into html page
84    
85  sub page {  sub page {
86          my ( $self, $page, $req, $args ) = @_;          my ( $self, $page, $req, $args ) = @_;
87            warn "## buffer_stack ",dump( Template::Declare->buffer_stack );
88            Template::Declare->buffer->clear; # XXX we need to manually do this!
89          warn "## page $page ",dump($args),"\n";          warn "## page $page ",dump($args),"\n";
90          my $out = eval { Template::Declare->show( $page, $req, $args ) };          my $out = eval { Template::Declare->show( $page, $req, $args ) };
91          if ( $@ ) {          if ( $@ ) {
# Line 107  sub add_javascript { Line 110  sub add_javascript {
110          warn "Added javascript $js\n";          warn "Added javascript $js\n";
111          push @javascript, $js;          push @javascript, $js;
112  }  }
113    
114    1;
Legend:
Removed from v.38  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.26