view release on metacpan or  search on metacpan

lib/Text/Patch/Rred.pm  view on Meta::CPAN

=item I<$edState>->B<Do>(I<@lines>)

Simply calls L<B<Do1>|/Do1 $edState, $patchline> for each element of
C<@lines>, returns a true value if all calls were successful or
C<@lines> was empty.  Otherwise returns C<undef>.

=cut

## no critic (RequireArgUnpacking)
sub Do($;)
{
    my $self = shift;
    local $_ = undef;
    my $ok = 1;
    for (@_) {
        unless (ref $_) {
            Do1($self, $_) or ($ok = undef);
        } else {
            for (@$_) {
                Do1($self, $_) or ($ok = undef);