RFC: Perl manual pages -- Style issue: compounds and spacing in conditionals

Examples from POD

    while (<>)
    while ( <> )

    while (/(\w+)\s+fish\b/gi) {
        ...
    }

    if (/=item (\S+)/ and $level == 1) {
        ...
    }

    if ($person->{role} =~ /kid|son|daughter/) {
        ...
    }

    if ($email =~ /([^@]+)@(.+)/) {
        ...
    }

    while (my($key,$val) = each %HIST) {
        ...
    }

What do you think about making a little more room inside parens:

    while ( <> )

    while ( /(\w+)\s+fish\b/gi ) {
        ...
    }

    if ( /=item (\S+)/  and  $level == 1 ) {
        ...
    }

    if ( $person->{role} =~ /kid|son|daughter/ ) {
        ...
    }

    if ( $email =~ /([^@]+)@(.+)/ ) {
        ...
    }

    while ( my($key,$val) = each %HIST ) {
        ...
    }


REFERENCES

Perlintro.pod suggests:

=item if

    if ( condition ) {
        ...
    } elsif ( other condition ) {
        ...
    } else {
        ...
    }

There's also a negated version of it:

    unless ( condition ) {
        ...
    }

=item while

    while ( condition ) {
        ...
    }

There's also a negated version, for the same reason we have C<unless>:

    until ( condition ) {
        ...
    }

• RFC: Perl manual pages -- Style issue: compounds and spacing in conditionals by Jari Aalto
• Re: RFC: Perl manual pages -- Style issue: compounds and spacing inconditionals by Curtis Jewell
• Re: RFC: Perl manual pages -- Style issue: compounds and spacingin conditionals by Abigail
• Re: RFC: Perl manual pages -- Style issue: compounds and spacing in conditionals by Tom Christiansen
• Re: RFC: Perl manual pages -- Style issue: compounds and spacing inconditionals by H.Merijn Brand
• Re: RFC: Perl manual pages -- Style issue: compounds and spacingin conditionals by Zefram