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   1930 use strict; use utf8; use warnings FATAL => 'all';
  3     3   6  
  3     3   79  
  3         10  
  3         4  
  3         16  
  3         85  
  3         3  
  3         129  
3 3     3   14 use parent 'DTL::Fast::Expression::Operator::Binary::Logical';
  3         3  
  3         17  
4              
5             $DTL::Fast::OPS_HANDLERS{'or'} = __PACKAGE__;
6              
7             sub dispatch
8             {
9 721     721 0 772 my( $self, $arg1, $context) = @_;
10              
11 721 50       2501 if( UNIVERSAL::can($arg1, 'or') )
12             {
13 0         0 return $arg1->or($self->get_b($context));
14             }
15             else
16             {
17 721   100     2359 return $arg1 || $self->get_b($context);
18             }
19             }
20              
21             1;