File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/DivideAssignment.pm
Criterion Covered Total %
statement 13 16 81.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 18 24 75.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   16851 use strict;
  37         109  
  37         1177  
3 37     37   231 use warnings;
  37         97  
  37         1865  
4              
5             package WWW::Shopify::Liquid::Operator::DivideAssignment;
6 37     37   247 use base 'WWW::Shopify::Liquid::Operator::Assignment';
  37         99  
  37         12843  
7 37     37   266 use Scalar::Util qw(looks_like_number);
  37         95  
  37         4145  
8 1318     1318 0 4294 sub symbol { return '/='; }
9             sub operate {
10 0     0 0   return first { ($_ cmp $_[4]) == 0 } ref($_[3]) eq "ARRAY";
  0            
11 0           return index($_[3], $_[4]) != -1;
12             }
13              
14             1;