File Coverage

blib/lib/WWW/Shopify/Liquid/Tag/RemoveKey.pm
Criterion Covered Total %
statement 13 15 86.6
branch 1 2 50.0
condition 2 6 33.3
subroutine 4 6 66.6
pod 0 3 0.0
total 20 32 62.5


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   14968 use strict;
  37         111  
  37         1427  
3 37     37   227 use warnings;
  37         92  
  37         1395  
4              
5             package WWW::Shopify::Liquid::Tag::RemoveKey;
6 37     37   231 use base 'WWW::Shopify::Liquid::Tag::Free';
  37         102  
  37         7362  
7 0     0 0 0 sub min_arguments { return 1; }
8 0     0 0 0 sub max_arguments { return 1; }
9             sub process {
10 1     1 0 3 my ($self, $hash, $action, $pipeline) = @_;
11 1         8 my ($ref, $inner_hash, $key) = $pipeline->variable_reference($hash, $self->{arguments}->[0]);
12 1 50 33     8 delete $inner_hash->{$key} if $inner_hash && $key && exists $inner_hash->{$key};
      33        
13 1         4 return $self;
14             }
15              
16              
17              
18             1;