File: ProhibitProlongedStrictureOverride.run

package info (click to toggle)
libperl-critic-perl 1.088-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 2,792 kB
  • ctags: 1,556
  • sloc: perl: 17,417; lisp: 340; makefile: 2
file content (79 lines) | stat: -rw-r--r-- 1,132 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
## name standard pass
## failures 0
## cut

use strict;
no strict;

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

## name standard fail
## failures 1
## cut

use strict;
no strict;
print 1;
print 2;
print 3;
print 4;

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

## name pass that's almost to fail
## failures 0
## cut

use strict;
no strict;
print 1;
print 2;
print 3;

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

## name in a block
## failures 0
## cut

use strict;
sub foo {
    no strict;
}
print 1;
print 2;
print 3;
print 4;

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

## name long fail in a block
## failures 1
## cut

use strict;
sub foo {
    no strict;
    print 1;
    print 2;
    print 3;
    print 4;
}

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

## name config override
## failures 0
## parms { statements => 6 }
## cut

use strict;
sub foo {
    no strict;
    print 1;
    print 2;
    print 3;
    print 4;
    print 5;
    print 6;
}