File Coverage

lib/CGI/Application/Plugin/TT/Any.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	4	6	66.6
condition	4	10	40.0
subroutine	9	9	100.0
pod	1	1	100.0
total	57	66	86.3

use strict;
use warnings;

package CGI::Application::Plugin::TT::Any;
BEGIN {
  $CGI::Application::Plugin::TT::Any::VERSION = '0.110080';
}

# ABSTRACT: load CGI::Application::Plugin::TT with any TT-compatible class


use Class::Load 'load_class';
use Carp;

require CGI::Application::Plugin::TT;

sub import {
    my $pkg = shift;
    my $callpkg = caller;
    {
        no warnings 'redefine';
        no strict 'refs';
        for (qw( tt_obj )) {
            my %target = %{"$callpkg\::"};
            die "CGI::Application::Plugin::TT needs to be loaded first" if !$target{$_};
            *{"$callpkg\::$_"} = \&{$_};
        }
    }
    return if !@_;
    return $callpkg->tt_config( @_ );
}

sub tt_obj {
    my $self = shift;

    my ($tt, $options, $frompkg) = CGI::Application::Plugin::TT::_get_object_or_options($self);

    return $tt if $tt;

    my $tt_options = $options->{TEMPLATE_OPTIONS} || {};
    my $class = delete $tt_options->{CLASS} || 'Template';
    load_class $class;

    $tt = $class->new( $tt_options ) || carp "Can't load Template";

    CGI::Application::Plugin::TT::_set_object( $frompkg||$self, $tt );

    return $tt;
}

1;

__END__