view release on metacpan or  search on metacpan

lib/DTL/Fast/Tag/Ifchanged.pm  view on Meta::CPAN

        if (not DTL::Fast::Expression::Operator::Binary::Eq::dispatch($self, $watch, $preserve))
        {
            $result = 1;
            last;
        }
    }
    return $result;
}


sub update_preserved
{
    my $self = shift;
    my $context = shift;

    $self->{preserved} = [ ];

    foreach my $watch (@{$self->{watches}})
    {
        push @{$self->{preserved}}, $watch->render($context);
    }