File Coverage

blib/lib/Devel/Profiler/Plugins/Template/Context.pm

Criterion	Covered	Total	%
statement	13	23	56.5
branch	0	4	0.0
condition	1	5	20.0
subroutine	5	6	83.3
pod	1	1	100.0
total	20	39	51.2

package Devel::Profiler::Plugins::Template::Context;

use Template::Context;

use strict;
use warnings FATAL => qw(all);

#---------------------------------------------------------------------
# constants and global variables
#---------------------------------------------------------------------
our @ISA = qw(Template::Context);

use constant DEBUG => $ENV{DEVEL_PROFILER_PLUGIN_DEBUG} || 0;

# tell tt to use this package instead of Template::Context
# for directive parsing
$Template::Config::CONTEXT = __PACKAGE__;

# capture the real process() sub as a coderef
our $process;

BEGIN {
  our $process = *Template::Context::process{CODE};
};


#---------------------------------------------------------------------
# override Template::Context::process() with our own routine
# so we can inject Devel::Profiler magic
#---------------------------------------------------------------------
sub process {

  my $self = shift;

  my ($template, $params, $localize) = @_;

  # derive the name of the BLOCK as best we can
  my $name = $template;

  $name = $template->name()
    if ref $template && $template->isa('Template::Document');

  # make sure it's safe to use as a perl subroutine
  $name = Devel::Profiler::Plugins::Template::_tidy_sub($name);

  # now, create and instrument a new subroutine, based on the
  # name of the BLOCK.  the fully qualified subroutine looks like
  #   TT::INCLUDE::layout_2fframe_2fhead_2ett

  my $type    = $localize ? 'INCLUDE' : 'PROCESS';
  my $package = "TT::${type}";
  my $sub     = "${package}::${name}";

  # instrument this puppy...
  Devel::Profiler::Plugins::Template::_instrument($package, $sub,
                                                  $name, $process);

  # and remember to actually call it so it runs
  return $package->$name($self, @_);
};


1;

__END__