view release on metacpan or  search on metacpan

lib/Perl/Lint/Keywords.pm  view on Meta::CPAN

my %bareword_map;
for my $bareword (@B::Keywords::Barewords) {
    $bareword_map{$bareword} = 1;
}

# perldoc -uT perlfunc | grep '=item.*LIST' | sed 's/(//' | awk '{print $2 " => 1,"}' | uniq
my %builtin_func_which_provide_list_context_map = (
    chmod    => 1,
    chomp    => 1,
    chop     => 1,
    chown    => 1,
    die      => 1,
    do       => 1,
    exec     => 1,
    formline => 1,
    grep     => 1,
    import   => 1,
    join     => 1,
    kill     => 1,
    map      => 1,
    no       => 1,

t/Policy/CodeLayout/prohibit_parens_with_builtins.t  view on Meta::CPAN

return ( $start_time + $elapsed_hours ) % $hours_in_day;

===
--- dscr: High-precedence operator after parentheses
--- failures: 0
--- params:
--- input
grep( { do_something($_) }, @list ) + 3;
join( $delim, @list ) . "\n";
pack( $template, $foo, $bar ) . $suffix;
chown( $file1, $file2 ) || die q{Couldn't chown};

===
--- dscr: Low-precedence operator after parentheses
--- failures: 2
--- params:
--- input
grep( { do_something($_) }, $foo, $bar) and do_something();
chown( $file1, $file2 ) or die q{Couldn't chown};

===
--- dscr: Named unary op with operator inside parenthesis (RT #46862)
--- failures: 0
--- params:
--- input
length( $foo // $bar );
stat( $foo || $bar );
uc( $this & $that );