package Template::Coverable::Context; use strict; use warnings; use base qw/Template::Context/; sub _init { my $self = shift; $_[0] ||= {}; $_[0]->{INCLUDE_PATH} ||= []; $_[0]->{INCLUDE_PATH} = [ $_[0]->{INCLUDE_PATH} ] unless ref($_[0]->{INCLUDE_PATH}) eq 'ARRAY'; push @{ $_[0]->{INCLUDE_PATH} }, $Devel::Cover::TT::TMPDIR; return $self->SUPER::_init(@_); } 1;