File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/Last.pm
Criterion Covered Total %
statement 12 14 85.7
branch 1 4 25.0
condition 1 6 16.6
subroutine 5 5 100.0
pod 0 2 0.0
total 19 31 61.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   15695 use strict;
  37         120  
  37         1229  
3 37     37   275 use warnings;
  37         98  
  37         1534  
4              
5 37     37   442 package WWW::Shopify::Liquid::Filter::Last; use base 'WWW::Shopify::Liquid::Filter';
  37         103  
  37         7364  
6 85     85 0 516 sub transparent { return 1; }
7             sub operate {
8 3     3 0 10 my ($self, $hash, $operand, @arguments) = @_;
9 3 50 33     20 return $operand->[-1] if $operand && ref($operand) eq "ARRAY";
10 0 0 0       return $operand->{last} if $operand && ref($operand) eq "HASH";
11 0           return undef;
12             }
13              
14             1;