File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/DateMath.pm

Criterion	Covered	Total	%
statement	10	17	58.8
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	6	66.6
pod	0	3	0.0
total	14	33	42.4

#!/usr/bin/perl
use strict;
use warnings;

package WWW::Shopify::Liquid::Filter::DateMath;
use base 'WWW::Shopify::Liquid::Filter';
# +-, #,
sub min_arguments { return 2; }
sub max_arguments { return 2; }
sub operate {
	my ($self, $hash, $operand, @arguments) = @_;
	my ($number, $unit) = @arguments;
	$unit = lc($unit);
	return undef unless ref($operand) && ref($operand) eq "DateTime";
	return $operand unless $unit =~ m/^(days|months|years|weeks|seconds|minutes|hours)$/;
	return $operand->clone->add(
		$unit => $number
	);
}

1;