view release on metacpan or  search on metacpan

lib/Perl/Critic/Policy/InputOutput/RequireCheckedSyscalls.pm  view on Meta::CPAN

#-----------------------------------------------------------------------------

Readonly::Scalar my $DESC => q{Return value of flagged function ignored};
Readonly::Scalar my $EXPL => [208, 278];

Readonly::Array my @DEFAULT_FUNCTIONS => qw(
    open close print say
);
# I created this list by searching for "return" in perlfunc
Readonly::Array my @BUILTIN_FUNCTIONS => qw(
    accept bind binmode chdir chmod chown close closedir connect
    dbmclose dbmopen exec fcntl flock fork ioctl kill link listen
    mkdir msgctl msgget msgrcv msgsnd open opendir pipe print read
    readdir readline readlink readpipe recv rename rmdir say seek seekdir
    semctl semget semop send setpgrp setpriority setsockopt shmctl
    shmget shmread shutdown sleep socket socketpair symlink syscall
    sysopen sysread sysseek system syswrite tell telldir truncate
    umask unlink utime wait waitpid
);

#-----------------------------------------------------------------------------

lib/Perl/Critic/Utils.pm  view on Meta::CPAN

}

## use critic
#-----------------------------------------------------------------------------

# egrep '=item.*LIST' perlfunc.pod
Readonly::Hash my %BUILTINS_WHICH_PROVIDE_LIST_CONTEXT =>
    hashify(
        qw{
            chmod
            chown
            die
            exec
            formline
            grep
            import
            join
            kill
            map
            no
            open

t/CodeLayout/ProhibitParensWithBuiltins.run  view on Meta::CPAN

#-----------------------------------------------------------------------------

## name High-precedence operator after parentheses
## failures 0
## cut

grep( { do_something($_) }, @list ) + 3;
join( $delim, @list ) . "\n";
pack( $template, $foo, $bar ) . $suffix;
chown( $file1, $file2 ) || die q{Couldn't chown};

#-----------------------------------------------------------------------------

## name Low-precedence operator after parentheses
## failures 2
## cut

grep( { do_something($_) }, $foo, $bar) and do_something();
chown( $file1, $file2 ) or die q{Couldn't chown};

#-----------------------------------------------------------------------------

## name Named unary op with operator inside parenthesis (RT #46862)
## failures 0
## cut

length( $foo // $bar );
stat( $foo || $bar );
uc( $this & $that );