File Coverage

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

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	10	0.0
condition	0	22	0.0
subroutine	5	8	62.5
pod	0	3	0.0
total	20	67	29.8

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

package WWW::Shopify::Liquid::Operator::Equals;
use base 'WWW::Shopify::Liquid::Operator';
use Scalar::Util qw(looks_like_number);
sub symbol { return ('==', 'is'); }
sub priority { return 5; }
use Data::Compare;
sub operate {
	my ($self, $hash, $action, $op1, $op2) = @_;
	return 1 if !defined $op1 && !defined $op2;
	return 0 if defined $op1 xor defined $op2;
	return $op1 == $op2 if (ref($op1) && ref($op2) && ref($op1) eq "DateTime" && ref($op2) eq "DateTime");
	return Compare($op1, $op2) if (ref($op1) && ref($op2));
	return $op1 == $op2 if looks_like_number($op1) && looks_like_number($op2);
	return ($op1 cmp $op2) == 0;
}

1;