File Coverage

blib/lib/Text/PSP/Template.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	3	0.0
total	18	23	78.2

package Text::PSP::Template;
use strict;
use Carp qw(croak);


sub new {
	my ($class,%args) = @_;
	return bless { _engine => $args{engine}, _filename => $args{filename} },$class;
}

sub run {
	croak "Abstract method Text::PSP::Template::run called!";
}

sub include {
	my ($self,$file,@args) = @_;
	my $dir = $self->{_filename};
	$dir =~ s/[^\/]+$//;
	my $template = $self->{_engine}->template("$dir/$file");
	return @{$template->run(@args)};
}

1;

#
# Copyright 2002 - 2005 Joost Diepenmaat, [e-mail]. All rights reserved.
#
# This library is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#