File Coverage

blib/lib/Text/PORE/Globals.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	13	15	86.6

#
# Text::PORE::Globals.pm
#
#  implements global variables for the template system

package Text::PORE::Globals;

use Exporter;
use Text::PORE::Volatile;

@Text::PORE::Globals::ISA = qw(Exporter);

my $envObj = new Text::PORE::Volatile();
my $indexObj = new Text::PORE::Volatile();

# default template root dir
my $_templateRootDir = ".";

$Text::PORE::Globals::globalVariables = new Text::PORE::Volatile
    (
     '_env'    => $envObj,
     '_index'  => $indexObj,
     );

##########################################
# setTemplateRoot($templateRoot)
##########################################
sub setTemplateRootDir($) {
	my ($templateRootDir) = shift;
	$_templateRootDir = $templateRootDir;
}

##########################################
# getTemplateRoot()
##########################################
sub getTemplateRootDir {
	return $_templateRootDir;
}

1;