Re^3: (Mis)Understanding grep...eq $

in reply to Re^2: (Mis)Understanding <c>grep...eq $_<c>
in thread (Mis)Understanding grep...eq $_

Ooh, nice! That's eminently readable. Much more likely to survive a code review than aristotle's ex-bang-bang operator.

Rather than

my @part = (
    'http://example.net/app',
    ( 'admin'  ) x!! $is_admin_link,
    ( $subsite ) x!! defined $subsite,
    $mode,
    ( $id      ) x!! defined $id,
    ( $submode ) x!! defined $submode,
);
[download]

we would now have

my @part = (
    'http://example.net/app',
    grep( $is_admin_link.    'admin' ),
    grep( defined($subsite), $subsite ),
    $mode,
    grep( defined($id),      $id      ),
    grep( defined($submode), $submode ),
);
[download]

I like it.

• another intruder with the mooring in the heart of the Perl

In Section Seekers of Perl Wisdom