--- trunk/lib/Frey/HTML.pm 2008/06/29 20:52:33 32
+++ trunk/lib/Frey/HTML.pm 2008/06/30 20:02:08 38
@@ -40,6 +40,15 @@
use Template::Declare::Tags; # defaults to 'HTML'
Template::Declare->init( roots => \@view_classes, around_template => sub {
my ($orig, $path, $args, $code) = @_;
+ my $from = (caller(1))[3];
+ my $package = __PACKAGE__;
+ if ( $from !~ m/$package/ ) {
+ warn "SKIP around_template for $path from $from\n";
+ return $orig->();
+ } else {
+ warn "WRAP around_temolate for $path from $from\n";
+ }
+
my $t = time;
html {
head {