File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/Replace.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   14989 use strict;
  37         120  
  37         1170  
3 37     37   244 use warnings;
  37         101  
  37         1531  
4              
5             package WWW::Shopify::Liquid::Filter::Replace;
6 37     37   259 use base 'WWW::Shopify::Liquid::Filter';
  37         105  
  37         6941  
7              
8 12     12 0 84 sub min_arguments { return 2; }
9 24     24 0 131 sub max_arguments { return 2; }
10              
11             sub operate {
12 5     5 0 17 my $str = $_[2];
13 5 100       24 return undef unless defined $str;
14 4         203 $str =~ s/$_[3]/$_[4]/g;
15 4         26 return $str; }
16              
17             1;