File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	4	50.0
condition	0	4	0.0
subroutine	6	6	100.0
pod	0	1	0.0
total	28	35	80.0

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

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

use DTL::Fast::Template;

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

    die $self->get_parse_error("parent template was not specified")
        if (not $self->{parameter});

    die $self->get_parse_error(
            sprintf("Multiple extends specified in the template:\n\%s\n\%s\n"
                , $DTL::Fast::Template::CURRENT_TEMPLATE->{extends}->{original} // 'undef'
                , $self->{parameter} // 'undef'
            )
        ) if ($DTL::Fast::Template::CURRENT_TEMPLATE->{extends});

    $DTL::Fast::Template::CURRENT_TEMPLATE->{extends} = DTL::Fast::Variable->new($self->{parameter});

    return;
}

1;