File Coverage

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

Criterion	Covered	Total	%
statement	16	17	94.1
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	22	25	88.0

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

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

sub dispatch
{
    my ( $self, $arg1) = @_;
    my $arg1_type = ref $arg1;

    if (UNIVERSAL::can($arg1, 'not'))
    {
        return $arg1->not();
    }
    else
    {
        return !$arg1;
    }
}

1;