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;