File Coverage

blib/lib/Eidolon/Driver/Template/Toolkit.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	4	7	57.1
pod	3	3	100.0
total	19	41	46.3

package Eidolon::Driver::Template::Toolkit;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Driver/Template/Toolkit.pm - Template Toolkit driver
#
# ==============================================================================

use base qw/Eidolon::Driver::Template/;
use Template;
use warnings;
use strict;

our $VERSION = "0.01"; # 2009-05-22 02:33:02

# ------------------------------------------------------------------------------
# \% new($templates_dir, $additional)
# constructor
# ------------------------------------------------------------------------------
sub new
{
    my ($class, $templates_dir, $additional, $self);

    ($class, $templates_dir, $additional) = @_;

    $self = $class->SUPER::new($templates_dir);
    $self->{"additional"} = $additional || {};

    return $self;
}

# ------------------------------------------------------------------------------
# parse($tpl)
# parse template
# ------------------------------------------------------------------------------
sub parse
{
    my ($self, $tpl) = @_;

    throw DriverError::Template::Open($tpl) if (!-f $self->{"templates_dir"}.$tpl);

    # create object
    $self->{"object"} = Template->new
    (
        "INCLUDE_PATH" => $self->{"templates_dir"},
        %{ $self->{"additional"} }
    );

    $self->{"object"}->process($tpl, $self->{"vars"}, \$self->{"result"});
}

# ------------------------------------------------------------------------------
# render()
# render template
# ------------------------------------------------------------------------------
sub render
{
    my $self = shift;

    throw DriverError::Template::NotParsed if (!$self->{"object"});

    print $self->{"result"};
}

1;

__END__