view release on metacpan or  search on metacpan

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

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
        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);
    }