File Coverage

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

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition			n/a
subroutine	4	9	44.4
pod	0	4	0.0
total	16	34	47.0

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

package WWW::Shopify::Liquid::Operator::Assignment;
use base 'WWW::Shopify::Liquid::Operator';
use List::Util qw(first);
sub symbol { return '='; }
sub priority { return 1; }
# Can't optimize this away; it's generally necessary for assignment tags, so we just assume taht this is always going to be there.

sub optimize {
	my ($self, $optimizer) = (shift, shift);
	$self->SUPER::optimize($self, $optimizer, @_);
	print STDERR "A\n";
	return $self;
}

sub operate {
	return first { ($_ cmp $_[4]) == 0 }  ref($_[3]) eq "ARRAY";
	return index($_[3], $_[4]) != -1;
}

1;