File Coverage

blib/lib/DTL/Fast/Expression/Operator/Binary/Or.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


line stmt bran cond sub pod time code
1             package DTL::Fast::Expression::Operator::Binary::Or;
2 3     3   3476 use strict; use utf8; use warnings FATAL => 'all';
  3     3   5  
  3     3   86  
  3         15  
  3         6  
  3         21  
  3         84  
  3         6  
  3         129  
3 3     3   17 use parent 'DTL::Fast::Expression::Operator::Binary::Logical';
  3         6  
  3         22  
4              
5             $DTL::Fast::OPS_HANDLERS{'or'} = __PACKAGE__;
6              
7             sub dispatch
8             {
9 721     721 0 1275 my( $self, $arg1, $context) = @_;
10              
11 721 50       2775 if( UNIVERSAL::can($arg1, 'or') )
12             {
13 0         0 return $arg1->or($self->get_b($context));
14             }
15             else
16             {
17 721   100     3089 return $arg1 || $self->get_b($context);
18             }
19             }
20              
21             1;