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
80
81
82
83
84
85
86
87
88
89
90
|
##----------------------------------------------------------------------------
## name standard failures
## failures 4
## cut
##no critic
## no critic
## no critic;
## no critic #blah,blah
##----------------------------------------------------------------------------
## name slightly more complicated failures
## failures 4
## cut
# just some spacing variations here...
$foo = $bar; ## no critic
$foo = $bar; ##no critic
$foo = $bar; ## no critic ()
#$foo = $bar; ## no critic ''
#$foo = $bar; ## no critic ""
$foo = $bar; ## no critic qw()
#----------------------------------------------------------------------------
## name unrestricted "no critic" on a sub block
## failures 5
## cut
sub frobulate { ##no critic
return $frob;
}
sub frobulate { ## no critic #blah,blah
return $frob;
}
sub frobulate { ## no critic ''
return $frob;
}
sub frobulate { ## no critic ""
return $frob;
}
sub frobulate { ## no critic ()
return $frob;
}
##----------------------------------------------------------------------------
## name standard passes
## failures 0
## cut
## no critic (shizzle)
## no critic 'shizzle'
## no critic "shizzle"
## no critic qw(shizzle) #blah,blah
$foo = $bar; ## no critic 'shizzle';
$foo = $bar; ## no critic "shizzle";
$foo = $bar; ## no critic (shizzle);
$foo = $bar; ## no critic qw(shizzle);
sub frobulate { ## no critic 'shizzle'
return $frob;
}
sub frobulate { ## no critic "shizzle"
return $frob;
}
sub frobulate { ## no critic (shizzle)
return $frob;
}
sub fornicate { ## no critic qw(shizzle)
return $forn;
}
#-----------------------------------------------------------------------------
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
|
