File Coverage

blib/lib/Perl/Critic/Policy/Lax/ProhibitLeadingZeros/ExceptChmod.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1 7     7   3837 use strict;
  7         16  
  7         174  
2 7     7   32 use warnings;
  7         13  
  7         260  
3             package Perl::Critic::Policy::Lax::ProhibitLeadingZeros::ExceptChmod 0.014;
4             # ABSTRACT: leading zeroes are okay as the first arg to chmod
5              
6             #pod =head1 DESCRIPTION
7             #pod
8             #pod This is subclass of
9             #pod L<Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros> with no
10             #pod changes. It once allowed leading zeroes on numbers used as args to C<chmod>,
11             #pod but in 2008 the default Perl::Critic policy became to allow leading zeroes
12             #pod there and in a few other places.
13             #pod
14             #pod =cut
15              
16 7     7   36 use Perl::Critic::Utils;
  7         14  
  7         108  
17 7     7   5036 use parent qw(Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros);
  7         15  
  7         37  
18              
19             1;
20              
21             __END__
22              
23             =pod
24              
25             =encoding UTF-8
26              
27             =head1 NAME
28              
29             Perl::Critic::Policy::Lax::ProhibitLeadingZeros::ExceptChmod - leading zeroes are okay as the first arg to chmod
30              
31             =head1 VERSION
32              
33             version 0.014
34              
35             =head1 DESCRIPTION
36              
37             This is subclass of
38             L<Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros> with no
39             changes. It once allowed leading zeroes on numbers used as args to C<chmod>,
40             but in 2008 the default Perl::Critic policy became to allow leading zeroes
41             there and in a few other places.
42              
43             =head1 PERL VERSION
44              
45             This library should run on perls released even a long time ago. It should work
46             on any version of perl released in the last five years.
47              
48             Although it may work on older versions of perl, no guarantee is made that the
49             minimum required version will not be increased. The version may be increased
50             for any reason, and there is no promise that patches will be accepted to lower
51             the minimum required perl.
52              
53             =head1 AUTHOR
54              
55             Ricardo Signes <cpan@semiotic.systems>
56              
57             =head1 COPYRIGHT AND LICENSE
58              
59             This software is copyright (c) 2022 by Ricardo Signes <cpan@semiotic.systems>.
60              
61             This is free software; you can redistribute it and/or modify it under
62             the same terms as the Perl 5 programming language system itself.
63              
64             =cut