File Coverage

blib/lib/Template/Liquid/Tag/Unless.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	8	8	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	33	34	97.0

package Template::Liquid::Tag::Unless;
our $VERSION = '1.0.23';
use strict;
use warnings;
require Template::Liquid::Error;
require Template::Liquid::Utility;
use base 'Template::Liquid::Tag::If';
sub import { Template::Liquid::register_tag('unless') }

sub render {
    my ($s) = @_;
    return $s->{'blocks'}->[0]->render()
        if !(grep { $_->is_true ? 1 : 0 }
             @{$s->{'blocks'}->[0]->{'conditions'}});
    for my $index (1 .. $#{$s->{'blocks'}}) {
        my $block = $s->{'blocks'}->[$index];
        return $block->render() if grep { $_ || 0 } @{$block->{'conditions'}};
    }
}
1;

=pod

=encoding UTF-8

=begin stopwords

Lütke jadedPixel

=end stopwords

=head1 NAME

Template::Liquid::Tag::Unless - Unless: The Opposite of If

=head1 Description

Unless is the opposite of L<if|Template::Liquid::Tag::If>. The block is
rendered I<unless> the condition is true.

=head1 Synopsis

    {% unless value == 5 %}
        Doesn't equal five!
    {% else %}
        Aww... it does equal five.
    {% endunless %}

=head1 Bugs

Since L<unless|Template::Liquid::Tag::Unless> is simply a subclass, see the
list of bugs for L<if|Template::Liquid::Tag::If>. They basically apply here
too.

=head1 See Also

See L<Template::Liquid::Condition|Template::Liquid::Condition> for a list of
supported inequalities.

=head1 Author

Sanko Robinson <[e-mail]> - http://sankorobinson.com/

The original Liquid template system was developed by jadedPixel
(http://jadedpixel.com/) and Tobias Lütke (http://blog.leetsoft.com/).

=head1 License and Legal

Copyright (C) 2009-2022 by Sanko Robinson E<lt>[e-mail]<gt>

This program is free software; you can redistribute it and/or modify it under
the terms of The Artistic License 2.0.  See the F<LICENSE> file included with
this distribution or http://www.perlfoundation.org/artistic_license_2_0.  For
clarification, see http://www.perlfoundation.org/artistic_2_0_notes.

When separated from the distribution, all original POD documentation is covered
by the Creative Commons Attribution-Share Alike 3.0 License.  See
http://creativecommons.org/licenses/by-sa/3.0/us/legalcode.  For clarification,
see http://creativecommons.org/licenses/by-sa/3.0/us/.

=cut