File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/Equals.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 4 25.0
condition 3 12 25.0
subroutine 7 7 100.0
pod 0 3 0.0
total 29 44 65.9


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 21     21   11739 use strict;
  21         38  
  21         830  
3 21     21   114 use warnings;
  21         37  
  21         815  
4              
5             package WWW::Shopify::Liquid::Operator::Equals;
6 21     21   102 use base 'WWW::Shopify::Liquid::Operator';
  21         31  
  21         2513  
7 291     291 0 740 sub symbol { return '=='; }
8 23     23 0 82 sub priority { return 5; }
9 21     21   12203 use Data::Compare;
  21         232716  
  21         284  
10             sub operate {
11 1     1 0 4 my ($self, $hash, $action, $op1, $op2) = @_;
12 1 0 33     6 return $op1 == $op2 if (ref($op1) && ref($op2) && ref($op1) eq "DateTime" && ref($op2) eq "DateTime");
      33        
      0        
13 1 50 33     12 return Compare($op1, $op2) if (ref($op1) && ref($op2));
14 1         6 return ($op1 cmp $op2) == 0;
15             }
16              
17             1;