File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/DivideAssignment.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 24 66.6


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 30     30   16479 use strict;
  30         49  
  30         882  
3 30     30   135 use warnings;
  30         47  
  30         1057  
4              
5             package WWW::Shopify::Liquid::Operator::DivideAssignment;
6 30     30   129 use base 'WWW::Shopify::Liquid::Operator::Assignment';
  30         38  
  30         2309  
7 30     30   153 use Scalar::Util qw(looks_like_number);
  30         56  
  30         3914  
8 0     0 0   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;