File Coverage

blib/lib/Template/Plugin/SafeInclude.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	38	38	100.0

package Template::Plugin::SafeInclude;

use warnings;
use strict;

use parent qw/Template::Plugin/;

our $VERSION = '0.02';

sub new {
    my $class = shift;
    my $context = shift;
    my $args = shift;

    my $self = bless {}, $class;
    $self->{_context} = $context;
    $self->{_verbose} = $args->{verbose};

    return $self;
}

sub inc {
    my $self = shift;
    my $path = shift;
    my $param = shift;

    my $html = "";
    eval {
        $html = $self->{_context}->include($path, $param);
    };
    unless ($@) {
	return $html;
    }
    if ($self->{_verbose}) {
	my $ret = sprintf "", $@;
	return $ret;
    }
}

1; # Magic true value required at end of module
__END__