File Coverage

blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitFiletest_rwxRWX.pm
Criterion Covered Total %
statement 33 34 97.0
branch 3 4 75.0
condition n/a
subroutine 13 14 92.8
pod 4 5 80.0
total 53 57 92.9


line stmt bran cond sub pod time code
1              
2             use 5.006001;
3 2     2   445958 use strict;
  2         15  
4 2     2   12 use warnings;
  2         4  
  2         40  
5 2     2   27  
  2         6  
  2         60  
6             use Readonly;
7 2     2   12  
  2         3  
  2         114  
8             use version;
9 2     2   792  
  2         3315  
  2         87  
10             use base 'Perl::Critic::Policy';
11 2     2   142  
  2         4  
  2         1073  
12             use Perl::Critic::Utils qw{ :severities :classification :ppi :booleans
13 2         156 :language hashify };
14 2     2   49133 use PPI;
  2         6  
15 2     2   1163 use PPI::Document;
  2         33109  
  2         64  
16 2     2   12  
  2         4  
  2         380  
17             our $VERSION = '0.001';
18              
19             #-----------------------------------------------------------------------------
20              
21             Readonly::Scalar my $DESC => q{Use of file access test %s};
22             Readonly::Scalar my $EXPL =>
23             q{File access test results may not reflect actual accessability};
24              
25             Readonly::Hash my %FILE_ACCESS => hashify( qw{ -r -w -x -R -W -X } );
26              
27             #-----------------------------------------------------------------------------
28              
29              
30 3     3 0 27174  
31             #-----------------------------------------------------------------------------
32 6     6 1 81  
33 0     0 1 0 my ( $self, $elem ) = @_;
34 2     2 1 30202  
35             $elem
36             or return;
37              
38             $FILE_ACCESS{ $elem->content() }
39 27     27 1 1102 or return;
40              
41 27 50       73 return $self->violation(
42             sprintf( $DESC, $elem->content() ),
43             $EXPL,
44 27 100       59 $elem,
45             );
46             }
47 6         79  
48             #-----------------------------------------------------------------------------
49              
50             1;
51              
52              
53             #-----------------------------------------------------------------------------
54              
55             =pod
56              
57             =for stopwords builtins
58              
59             =head1 NAME
60              
61             Perl::Critic::Policy::ValuesAndExpressions::ProhibitFiletest_rwxRWX - Prohibit file access tests.
62              
63             =head1 AFFILIATION
64              
65             This Policy is stand-alone, and is not part of the core
66             L<Perl::Critic|Perl::Critic>.
67              
68             =head1 DESCRIPTION
69              
70             This policy prohibits the file access tests C<-r>, C<-w>, C<-x>, C<-R>, C<-W>,
71             and C<-X>. All these do by default is to check the file's access control bits.
72             Access to a file can succeed or fail for other reasons such as the presence of
73             Access Control Lists (ACLs), a file system being mounted read-only, or an
74             executable being corrupt.
75              
76             This policy is under the "bugs" theme, with low severity.
77              
78             =head1 CONFIGURATION
79              
80             This Policy has no configuration options.
81              
82             =head1 SEE ALSO
83              
84             L<Perl::Critic::Policy::ValuesAndExpressions::ProhibitFiletest_f|Perl::Critic::Policy::ValuesAndExpressions::ProhibitFiletest_f>
85              
86             L<https://blogs.perl.org/users/tom_wyant/2022/06/the-file-access-operators-to-use-or-not-to-use.html>
87              
88             =head1 SUPPORT
89              
90             Support is by the author. Please file bug reports at
91             L<https://rt.cpan.org/Public/Dist/Display.html?Name=Perl-Critic-Policy-ValuesAndExpressions-ProhibitFiletest_rwxRWX>,
92             L<https://github.com/trwyant/perl-Perl-Critic-Policy-ValuesAndExpressions-ProhibitFiletest_rwxRWX/issues>,
93             or in electronic mail to the author.
94              
95             =head1 AUTHOR
96              
97             Thomas R. Wyant, III F<wyant at cpan dot org>.
98              
99             =head1 COPYRIGHT
100              
101             Copyright 2022 Thomas R. Wyant, III.
102              
103             This program is free software; you can redistribute it and/or modify
104             it under the same terms as Perl itself.
105              
106             =cut
107              
108             # Local Variables:
109             # mode: cperl
110             # cperl-indent-level: 4
111             # fill-column: 78
112             # indent-tabs-mode: nil
113             # c-indentation-style: bsd
114             # End:
115             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :