lib/B/Deparse.pm

84 # - add option for even more parens (generalize \&foo change)
107 # op/override 7 - parens on overridden require change v-string interpretation
112 # op/recurse 12 - missing parens on recursive call makes it look like method
200 # parens: -p
221 # the parens off the listop.
255 # \cS - steal parens (see maybe_parens_unop)
810     $self->{'parens'} = 0;
830 	    $self->{'parens'} = 1;
1511 	or $self->{'parens'})
1514 	# In a unop, let parent reuse our parens; see maybe_parens_unop
1526     if ($cx > 16 or $self->{'parens'}) {
1539 	    # use kid's parens
1542 	    # avoid looks-like-a-function trap with extra parens
1554     if ($prec <= $cx or substr($text, 0, 1) eq "(" or $self->{'parens'}) {
1584     # parens are there.
1640     # parens are there.
1644     # The @a in \my @a must not have parens.
2593 		 . ($cx >= 16 || $self->{'parens'} ? "($kid)" : " $kid");
2831                 # Always show parens for \(&func()), but only with -p otherwise
2832                 $text = "($text)" if $self->{'parens'}
3256     } elsif ($cx < 1 and $blockname and not $self->{'parens'}
3368     my $parens = ($cx >= 5) || $self->{'parens'};
3398 	if not $parens and not $nollafr and substr($first, 0, 1) eq "(";
3411 	         . ($parens ? "($exprs[0])" : " $exprs[0]");
3414     if ($parens && $nollafr) {
3416     } elsif ($parens) {
3546     return $cx >= 5 || $self->{'parens'}
3559     my $parens = ($cx >= 5) || $self->{'parens'};
3567         $fh = "+$fh" if not $parens and substr($fh, 0, 1) eq "(";
3571     if ($parens) {
3622 	# requires, we'll put parens around the outside "(sort f 1, 2,
3623 	# 3)". Unfortunately, we'll currently think the parens are
4300 # of CORE:: and parens
4552     # Outer parens in an array index will confuse perl
4556     # If $self->{parens}, then an initial '(' will
4558     # !$self->{parens}, the misleading parens won't
4562     # where the initial and final parens do not match
4565     # two pairs of parens, and *that* means that the whole
4568     $idx =~ s/^\((.*)\)$/$1/ if $self->{'parens'};
4725         my $parens = $assign || ($cx >= 5) || $self->{'parens'};
4729         $rhs = $parens
4751                           || $self->{'parens'};
4970 	# parens, the parens aren't part of the method syntax (the LLAFR
5046 	return $kid . "(" . $args . ")"; # parens mandatory
7177 preceded by a prototype in parens), given a reference to the