File Coverage

blib/lib/DTL/Fast/Tag/If/Condition.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	31	33	93.9

package DTL::Fast::Tag::If::Condition;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Renderer';
# this is a simple condition

use DTL::Fast::Utils qw(as_bool);

sub new
{
    my ( $proto, $condition, %kwargs ) = @_;

    $kwargs{condition} = ref $condition ?
        $condition
                                        : DTL::Fast::Expression->new($condition);

    my $self = $proto->SUPER::new(%kwargs);

    delete $self->{_template};

    return $self;
}

sub is_true
{
    my ( $self, $context ) = @_;

    return as_bool($self->{condition}->render($context));
}

1;