File Coverage

blib/lib/DTL/Fast/Tag/Autoescape.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	36	39	92.3

package DTL::Fast::Tag::Autoescape;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Tag';

$DTL::Fast::TAG_HANDLERS{autoescape} = __PACKAGE__;

#@Override
sub get_close_tag { return 'endautoescape';}

#@Override
sub parse_parameters
{
    my $self = shift;

    if ($self->{parameter} eq 'on')
    {
        $self->{safe} = 0;
    }
    elsif ($self->{parameter} eq 'off')
    {
        $self->{safe} = 1;
    }
    else
    {
        die $self->get_parse_error("autoescape tag undertands only `on` and `off` parameters");
    }
    return $self;
}

#@Override
sub render
{
    my $self = shift;
    my $context = shift;

    $context->push_scope()->set(_dtl_safe => $self->{safe});
    my $result = $self->SUPER::render($context);
    $context->pop_scope();

    return $result;
}

1;