File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/Contains.pm
Criterion Covered Total %
statement 14 15 93.3
branch 1 2 50.0
condition 2 6 33.3
subroutine 6 6 100.0
pod 0 3 0.0
total 23 32 71.8


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   15191 use strict;
  37         103  
  37         1140  
3 37     37   230 use warnings;
  37         94  
  37         1396  
4              
5             package WWW::Shopify::Liquid::Operator::Contains;
6 37     37   242 use base 'WWW::Shopify::Liquid::Operator';
  37         91  
  37         8260  
7 1321     1321 0 3958 sub symbol { return 'contains'; }
8 85     85 0 323 sub priority { return 11; }
9             sub operate {
10 9     9 0 36 my ($self, $hash, $action, $left, $right) = @_;
11 9 50 33     33 return int(grep { $_ eq $right } @$left) > 0 if ref($left) && ref($left) eq 'ARRAY';
  0         0  
12 9   33     89 return !defined $_[4] || (defined $_[3] && index($_[3], $_[4]) != -1);
13             }
14              
15             1;