File Coverage

blib/lib/Excel/Template/TT.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch			n/a
condition	0	4	0.0
subroutine	5	7	71.4
pod	0	1	0.0
total	20	36	55.5

package Excel::Template::TT;

use strict;
use warnings;
our $VERSION = '0.0.1';

use File::Temp qw(tempfile);
use Template;

use base qw(Excel::Template);

sub parse_xml {
    my($self, $file) = @_;

    my($fh, $tempfile) = tempfile;

    my $tt = Template->new($self->{CONFIG} || {});
    $tt->process(
        $file,
        $self->{VARS} || {},
        $fh,
    );
    close $fh;

    $self->{tempfile} = $tempfile;

    $self->SUPER::parse_xml($tempfile);
}

sub DESTROY {
    my $self = shift;

    unlink $self->{tempfile};
}

1;
__END__