File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/Plus.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 25 28 89.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 21     21   10792 use strict;
  21         40  
  21         738  
3 21     21   98 use warnings;
  21         34  
  21         751  
4              
5             package WWW::Shopify::Liquid::Operator::Plus;
6 21     21   95 use base 'WWW::Shopify::Liquid::Operator';
  21         30  
  21         1730  
7 21     21   134 use Scalar::Util qw(looks_like_number);
  21         50  
  21         3377  
8 293     293 0 745 sub symbol { return '+'; }
9 69     69 0 120 sub priority { return 9; }
10             sub operate {
11 4 100   4 0 21 return $_[3] . $_[4] if !looks_like_number($_[3]);
12 3         19 return $_[0]->ensure_numerical($_[3]) + $_[0]->ensure_numerical($_[4]);
13             }
14              
15             1;