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   3525 use strict;
  7         7  
  7         161  
2 7     7   20 use warnings;
  7         8  
  7         283  
3             package Perl::Critic::Policy::Lax::ProhibitLeadingZeros::ExceptChmod;
4             # ABSTRACT: leading zeroes are okay as the first arg to chmod
5             $Perl::Critic::Policy::Lax::ProhibitLeadingZeros::ExceptChmod::VERSION = '0.013';
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   23 use Perl::Critic::Utils;
  7         5  
  7         80  
17 7     7   3433 use parent qw(Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros);
  7         9  
  7         30  
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.013
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 AUTHOR
44              
45             Ricardo Signes <rjbs@cpan.org>
46              
47             =head1 COPYRIGHT AND LICENSE
48              
49             This software is copyright (c) 2017 by Ricardo Signes <rjbs@cpan.org>.
50              
51             This is free software; you can redistribute it and/or modify it under
52             the same terms as the Perl 5 programming language system itself.
53              
54             =cut