my %types = (
    pdf => {
        extension => '.pdf.xml',
        module => 'PDF::Template',
    },
    xls => {
        extension => '.xls.xml',
        module => 'Excel::Template',
    },
    html => {
        extension => '.tmpl',
        module => 'HTML::Template',
    },
);

sub print
{
    my $self = shift;
    my ($tmpl_name, $type, @parms) = @_;

    my $module = $types{$type}{module};
    my $template = $module->new(
        filename => $tmpl_name . '.' . $types{$type}{extension};
    );

    $template->param( @parms );

    return $template->output;
}