File Coverage

blib/lib/tt.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#!/usr/bin/perl

package tt;
use Module::Compile -base;

use strict;
use warnings;

use Template;

our $VERSION = "0.02";

sub default_tt_config {
	return (
		INTERPOLATE        => 0,
		EVAL_PERL          => 1,
		INCLUDE_PATH       => [ @INC ],
		LOAD_PERL          => 1,
		DEBUG              => "undef",
	);
}

sub default_tt_vars {
	my $class = shift;
	return (
		filter_class => $class,
		'package'    => undef,
		file         => undef,
		from_line    => undef,
		to_line      => undef,
	);
}

sub pmc_compile {
	my ( $class, $source, $extra ) = @_;

	# try to make vars out of the use line
	my %use_opts = do {
		( my $vars = $extra->{use} ) =~ s/^\s*use\s+tt\s*//;
		eval "$vars";
	};

	die "error evaluating vars on use line ($extra->{use}): $@"
		if $@;


	# try to remove keys that look like TT configuration
	my %config = (
		$class->default_tt_config,
		map { $_ => delete $use_opts{$_} } grep /^[A-Z_]+$/, keys %use_opts,
	);

	my %vars = (
		$class->default_tt_vars,
		%use_opts,
	);

	my $t = Template->new(\%config) || die Template->error;

	$t->process( \$source, \%vars, \( my $out ) ) || die $t->error;
	$out || die $t->error;

	return $out;
}

__PACKAGE__;

__END__