File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/DateSetTimeZone.pm
Criterion Covered Total %
statement 15 15 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod 0 3 0.0
total 23 29 79.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   14937 use strict;
  37         116  
  37         1108  
3 37     37   236 use warnings;
  37         105  
  37         1395  
4              
5             package WWW::Shopify::Liquid::Filter::DateSetTimeZone;
6 37     37   239 use base 'WWW::Shopify::Liquid::Filter';
  37         97  
  37         6975  
7              
8 1     1 0 6 sub min_arguments { return 1; }
9 2     2 0 7 sub max_arguments { return 1; }
10             sub operate {
11 1     1 0 6 my ($self, $hash, $operand, @arguments) = @_;
12 1         3 my ($timezone) = @arguments;
13 1 50 33     8 return undef unless ref($operand) && ref($operand) eq "DateTime";
14 1         6 return $operand->clone->set_time_zone($timezone);
15             }
16              
17             1;