File Coverage

blib/lib/DTL/Fast/Expression/Operator/Unary/Defined.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	23	26	88.4

package DTL::Fast::Expression::Operator::Unary::Defined;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Expression::Operator::Unary';

$DTL::Fast::OPS_HANDLERS{defined} = __PACKAGE__;

sub render
{
    my ( $self, $context) = @_;
    my $result = undef;

    if ($self->{a}->{undef})
    {
        $result = 1;
    }
    else
    {
        $result = defined $self->{a}->render($context, 1);
    }

    return $result;
}

1;