File Coverage

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

Criterion	Covered	Total	%
statement	12	17	70.5
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	29	55.1

#!/usr/bin/perl

use strict;
use warnings;

# Used in our AST to keep things simple; represents the concatenation of text and other stuff.
# Making this a many-dimensional operator, so that we avoid going too far down the callstack rabbithole.
package WWW::Shopify::Liquid::Operator::Not;
use base 'WWW::Shopify::Liquid::Operator';
use Scalar::Util qw(blessed);
sub symbol { return "!"; }
sub arity { return "unary"; }
sub fixness { return "prefix"; }
sub operate {
	my ($self, $hash, $action, $op) = @_;
	return !$op;
}

1;