File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/RemoveFirst.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   15031 use strict;
  37         114  
  37         1233  
3 37     37   255 use warnings;
  37         110  
  37         1477  
4              
5 37     37   255 package WWW::Shopify::Liquid::Filter::RemoveFirst; use base 'WWW::Shopify::Liquid::Filter';
  37         106  
  37         5429  
6 0     0 0   sub operate { my $str = $_[2]; $str =~ s/$_[3]//; return $str; }
  0            
  0            
7              
8             1;