File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/Join.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 1 0.0
total 18 22 81.8


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   888660 use strict;
  37         125  
  37         1426  
3 37     37   264 use warnings;
  37         106  
  37         1892  
4              
5 37     37   272 package WWW::Shopify::Liquid::Filter::Join; use base 'WWW::Shopify::Liquid::Filter';
  37         105  
  37         7843  
6             sub operate {
7 3     3 0 21 my ($self, $hash, $operand, $argument) = @_;
8 3 50 33     28 return undef unless $operand && ref($operand) eq 'ARRAY';
9 3         22 return join($argument, @$operand);
10             }
11              
12             1;