File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/Concatenate.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 4 50.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 23 28 82.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3 21     21   10766 use strict;
  21         38  
  21         741  
4 21     21   108 use warnings;
  21         31  
  21         782  
5              
6             # Used in our AST to keep things simple; represents the concatenation of text and other stuff.
7             package WWW::Shopify::Liquid::Operator::Concatenate;
8 21     21   108 use base 'WWW::Shopify::Liquid::Operator';
  21         30  
  21         3429  
9 291     291 0 819 sub symbol { return (); }
10             sub operate {
11 15     15 0 25 my ($self, $hash, $action, $op1, $op2) = @_;
12 15 50       25 $op1 = '' unless defined $op1;
13 15 50       26 $op2 = '' unless defined $op2;
14 15         45 return $op1 . $op2;
15             }
16 167     167 0 653 sub new { return bless { }, $_[0]; }
17              
18             1;