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;