File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/Plus.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	10	0.0
condition	0	9	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	51	31.3

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

package WWW::Shopify::Liquid::Operator::Plus;
use base 'WWW::Shopify::Liquid::Operator';
use Scalar::Util qw(looks_like_number);
sub symbol { return '+'; }
sub priority { return 9; }
sub operate {
	if (ref($_[3]) && ref($_[3]) eq 'ARRAY') {
		return [@{$_[3]}, @{$_[4]}] if ref($_[4]) && ref($_[4]) eq 'ARRAY';
		return [@{$_[3]}, $_[4]];
	}
	return (defined $_[3] ? $_[3] : "")  . (defined $_[4] ? $_[4] : "") if !looks_like_number($_[3]) || !looks_like_number($_[4]);
	return $_[0]->ensure_numerical($_[3]) + $_[0]->ensure_numerical($_[4]);
}

1;