File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/First.pm
Criterion Covered Total %
statement 10 14 71.4
branch 0 4 0.0
condition 0 6 0.0
subroutine 4 5 80.0
pod 0 2 0.0
total 14 31 45.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 21     21   9751 use strict;
  21         41  
  21         695  
3 21     21   97 use warnings;
  21         34  
  21         650  
4              
5 21     21   93 package WWW::Shopify::Liquid::Filter::First; use base 'WWW::Shopify::Liquid::Filter';
  21         29  
  21         2958  
6 23     23 0 177 sub transparent { return 1; }
7             sub operate {
8 0     0 0   my ($self, $hash, $operand, @arguments) = @_;
9 0 0 0       return $operand->[0] if $operand && ref($operand) eq "ARRAY";
10 0 0 0       return $operand->{first} if $operand && ref($operand) eq "HASH";
11 0           return undef;
12             }
13              
14             1;