File Coverage

blib/lib/DTL/Fast/Expression/Operator/Binary/And.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	1	2	50.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	24	27	88.8

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

$DTL::Fast::OPS_HANDLERS{'and'} = __PACKAGE__;

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

    if( UNIVERSAL::can($arg1, 'and') )
    {
        return $arg1->and($self->get_b($context));
    }
    else
    {
        return $arg1 && $self->get_b($context);
    }
}

1;