File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/IReplace.pm
Criterion Covered Total %
statement 10 16 62.5
branch 0 2 0.0
condition n/a
subroutine 4 7 57.1
pod 0 4 0.0
total 14 29 48.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   14576 use strict;
  37         106  
  37         1101  
3 37     37   228 use warnings;
  37         167  
  37         1366  
4              
5             package WWW::Shopify::Liquid::Filter::IReplace;
6 37     37   292 use base 'WWW::Shopify::Liquid::Filter';
  37         89  
  37         7733  
7              
8 0     0 0 0 sub min_arguments { return 2; }
9 0     0 0 0 sub max_arguments { return 2; }
10 85     85 0 467 sub name { 'ireplace' }
11             sub operate {
12 0     0 0   my $str = $_[2];
13 0 0         return undef unless defined $str;
14 0           $str =~ s/$_[3]/$_[4]/gi;
15 0           return $str; }
16              
17             1;