File Coverage

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

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	10	0.0
condition	0	9	0.0
subroutine	4	8	50.0
pod	0	4	0.0
total	16	63	25.4

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

package WWW::Shopify::Liquid::Operator::Or;
use base 'WWW::Shopify::Liquid::Operator';
sub symbol { return ('||', 'or'); }
sub priority { return 4; }
use Scalar::Util qw(blessed);


sub optimize {
	my ($self, $optimizer, $hash) = @_;
	die new WWW::Shopify::Liquid::Exception("Cannot optimize without a valid optimizer.")
		unless $optimizer && blessed($optimizer) && $optimizer->isa('WWW::Shopify::Liquid::Optimizer');
	my @ops = @{$self->{operands}};
	$ops[$_] = $ops[$_]->optimize($optimizer, $hash) for (grep { !$self->is_processed($ops[$_]) } (0..$#ops));

	if (int(grep { !$self->is_processed($_) } @ops) > 0) {
		# This is true, if any of the arguments are true.
		return 1 if (int(grep { $self->is_processed($_) && $_ } @ops) > 0);
		# All processed arguments, then should be eliminated, because they must be false.
		@ops = grep { !$self->is_processed($_) } @ops;
		return $ops[0] if (int(@ops) == 1);
		$self->{operands} = \@ops;
		return $self;
	}
	$optimizer->security->check_operate($self, $hash, "optimize", @ops);
	return $self->operate($hash, "optimize", @ops);
}

sub operate { return $_[3] || $_[4]; }

1;