File Coverage

blib/lib/Gantry/Template/TT.pm

Criterion	Covered	Total	%
statement	12	35	34.2
branch	0	14	0.0
condition	0	6	0.0
subroutine	4	8	50.0
pod	4	4	100.0
total	20	67	29.8

package Gantry::Template::TT;
require Exporter;

use Gantry::Init;
use Template;
use vars qw( @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
use strict;

############################################################
# Variables                                                #
############################################################
@ISA        = qw( Exporter );
@EXPORT     = qw(
    do_action
    do_error
    do_process
    template_engine
);

@EXPORT_OK  = qw( );

my $tt;
my @tt_include_paths;
my @tt_wrapper;
my @tt_default_template;

############################################################
# Functions                                                #
############################################################
#-------------------------------------------------
# $self->do_action( 'do_main|do_edit', @p )
#-------------------------------------------------
sub do_action {
    my( $self, $action, @p ) = @_;

    # stash the output from the action ie. do_main, do_edit
    # for use when do_process is call.
    $self->stash->controller->data( $self->$action( @p ) );

} # end do_action

#-------------------------------------------------
# $self->do_error( @err )
#-------------------------------------------------
sub do_error {
    my( $self, @err ) = @_;

    #$self->r->log_error( join( "\n", @err ) );

} # end do_error

#-------------------------------------------------
# $site->do_process(  )
#-------------------------------------------------
sub do_process {
    my( $self ) = @_;

    # Check template disabled flag
    if ( $self->template_disable ) {
        return( $self->stash->controller->data );
    }

    # Process through template tookit
    else {
        if ( not defined $tt ) {
            $tt = Template->new(
                WRAPPER         => \@tt_wrapper,
                INCLUDE_PATH    => \@tt_include_paths,
                DEFAULT         => \@tt_default_template,
            ) or die "$Template::ERROR";
        }

        # Use the template defined in controller use template from PerlSetVar
        if ( ! defined  $self->stash->view->template ) {
            $self->stash->view->template( $self->template );
        }

        return(
            ( $self->stash->view->data || '' )
            . ( $self->stash->controller->data || '' )
        ) if ! $self->stash->view->template();

        my $tmpl_install_dir = '';
        eval {
            $tmpl_install_dir = Gantry::Init->base_root();
        };

        @tt_include_paths = ( split( ':', $self->root), $tmpl_install_dir );

        if ( $self->template_wrapper ) {
           @tt_wrapper = ( $self->template_wrapper );
        }
        else {
           pop( @tt_wrapper );
        }

        @tt_default_template = ( $self->template_default || undef );

        my $page = '';
        $tt->process(
            $self->stash->view->template,
            {
                self => $self,
                site => $self,
                view => $self->stash->view,
            },
            \$page,
        ) || die( "Template Error: " . $tt->error );

        return( $page );
    }
} # end do_process

#-------------------------------------------------
# $site->template_engine
#-------------------------------------------------
sub template_engine {
    return __PACKAGE__;

} # end template_engine
# EOF
1;

__END__