File Coverage

blib/lib/MIME/Lite/TT.pm

Criterion	Covered	Total	%
statement	21	44	47.7
branch	0	10	0.0
condition	0	4	0.0
subroutine	7	12	58.3
pod	0	1	0.0
total	28	71	39.4

package MIME::Lite::TT;

use strict;
use vars qw($VERSION);
$VERSION = '0.02';

use MIME::Lite;
use Template;
use Carp ();

sub new {
	my ($class, %options)  = @_;

	%options = $class->_before_process(%options);

	if ( my $template = delete $options{Template} ) {
		my $tmpl_options = delete $options{TmplOptions} || {};
		my %config = (ABSOLUTE => 1,
					  RELATIVE => 1,
					  %$tmpl_options,
					 );
        if ( $options{TmplUpgrade}) {
            $config{LOAD_TEMPLATES} = [MIME::Lite::TT::Provider->new(\%config)];
        }

		my $tt = Template->new(\%config);
		my $tmpl_params = delete $options{TmplParams} || {};
		$tt->process($template, $tmpl_params, \$options{Data})
			or Carp::croak $tt->error;
	}

	%options = $class->_after_process(%options);

	MIME::Lite->new(%options);
}

sub _before_process {
	my $class = shift;
	@_;
}

sub _after_process {
	my $class = shift;
	@_;
}

package MIME::Lite::TT::Provider;
use strict;
use base qw(Template::Provider);
sub _load {
    my $self = shift;
    my ($data, $error) = $self->SUPER::_load(@_);
    if(defined $data) {
        $data->{text} = utf8_upgrade($data->{text});
    }
    return ($data, $error);
}
sub utf8_upgrade {
    my @list = map pack('U*', unpack 'U0U*', $_), @_;
    return wantarray ? @list : $list[0];
}

1;
__END__