/[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 37 by dpavlin, Sun Jun 29 20:52:33 2008 UTC revision 38 by dpavlin, Mon Jun 30 20:02:08 2008 UTC
# Line 40  use Template::Declare; Line 40  use Template::Declare;
40  use Template::Declare::Tags; # defaults to 'HTML'  use Template::Declare::Tags; # defaults to 'HTML'
41  Template::Declare->init( roots => \@view_classes, around_template => sub {  Template::Declare->init( roots => \@view_classes, around_template => sub {
42          my ($orig, $path, $args, $code) = @_;          my ($orig, $path, $args, $code) = @_;
43            my $from = (caller(1))[3];
44            my $package = __PACKAGE__;
45            if ( $from !~ m/$package/ ) {
46                    warn "SKIP around_template for $path from $from\n";
47                    return $orig->();
48            } else {
49                    warn "WRAP around_temolate for $path from $from\n";
50            }
51    
52          my $t = time;          my $t = time;
53          html {          html {
54                  head {                  head {
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26