File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/Assignment.pm
Criterion Covered Total %
statement 14 17 82.3
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 3 0.0
total 20 28 71.4


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 21     21   10732 use strict;
  21         38  
  21         732  
3 21     21   106 use warnings;
  21         28  
  21         708  
4              
5             package WWW::Shopify::Liquid::Operator::Assignment;
6 21     21   91 use base 'WWW::Shopify::Liquid::Operator';
  21         30  
  21         1574  
7 21     21   119 use List::Util qw(first);
  21         26  
  21         3817  
8 291     291 0 706 sub symbol { return '='; }
9 598     598 0 1160 sub priority { return 1; }
10             sub operate {
11 0     0 0   return first { ($_ cmp $_[4]) == 0 } ref($_[3]) eq "ARRAY";
  0     0      
12 0           return index($_[3], $_[4]) != -1;
13             }
14              
15             1;