File Coverage

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

Criterion	Covered	Total	%
statement	9	34	26.4
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	11	27.2
pod	0	8	0.0
total	12	60	20.0

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

package WWW::Shopify::Liquid::Operator;
use base 'WWW::Shopify::Liquid::Element';
sub new {
	my $package = shift;
	my $self = bless { line => shift, core => shift, operands => undef }, $package;
	$self->{operands} = [@_] if int(@_) >= 1;
	return $self;
}
sub operands { my $self = shift; $self->{operands} = [@_]; return $self->{operands}; }

sub tokens { return map { $_->tokens } (@{$_[0]->{operands}}) }
sub arity { return "binary"; }
sub fixness { return "infix"; }

sub process {
	my ($self, $hash, $action, $pipeline) = @_;
	my @ops = @{$self->{operands}};
	$ops[$_] = $ops[$_]->$action($pipeline, $hash) for (grep { !$self->is_processed($ops[$_]) } (0..$#ops));

	if (int(grep { !$self->is_processed($_) } @ops) > 0 && $action eq "optimize") {
		$self->{operands} = \@ops;
		return $self;
	}
	$pipeline->security->check_operate($self, $hash, $action, @ops);
	return $self->operate($hash, $action, @ops);
}
sub priority { return 0; }
# If we require a grouping, it means that it must be wrapped in parentheses, due to how Shopify works. Only relevant for reconversion.
sub requires_grouping { return 0; }

1;