Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

use strict;
use Carp;
sub new {
my ( $class, %opts ) = @_;
$opts{include_path} ||= ["$FindBin::Bin/view"];
my $mt = Text::MicroTemplate::File->new(%opts);
bless {mt => $mt}, $class;
}
sub render {
my ( $self, $file, @params ) = @_;
$self->{mt}->render_file($file, @params);
}
1;