Login
Some failing test cases for ProhibitUnrestrictedNoCritic.
[gknop/Perl-Critic.git] / t / Miscellanea / ProhibitUnrestrictedNoCritic.run
CommitLineData
05e2d404
JRT
1##----------------------------------------------------------------------------
2## name standard failures
d4ccd9a8 3## failures 12
05e2d404
JRT
4## cut
5
6## no critic
7## no critic;
8## no critic #blah,blah
9
d4ccd9a8
JRT
10$foo = $bar; ## no critic
11$foo = $bar; ## no critic ()
12$foo = $bar; ## no critic ''
13$foo = $bar; ## no critic ""
14$foo = $bar; ## no critic qw()
05e2d404 15
d4ccd9a8
JRT
16sub frobulate { ## no critic #blah,blah
17 return $frob;
18}
19
20sub frobulate { ## no critic ''
21 return $frob;
22}
23
24sub frobulate { ## no critic ""
25 return $frob;
26}
27
28sub frobulate { ## no critic ()
05e2d404
JRT
29 return $frob;
30}
31
32##----------------------------------------------------------------------------
33## name standard passes
34## failures 0
35## cut
36
37## no critic (shizzle)
d4ccd9a8
JRT
38## no critic 'shizzle'
39## no critic "shizzle"
05e2d404
JRT
40## no critic qw(shizzle) #blah,blah
41
d4ccd9a8
JRT
42$foo = $bar; ## no critic 'shizzle';
43$foo = $bar; ## no critic "shizzle";
05e2d404
JRT
44$foo = $bar; ## no critic (shizzle);
45$foo = $bar; ## no critic qw(shizzle);
46
d4ccd9a8
JRT
47
48sub frobulate { ## no critic 'shizzle'
05e2d404 49 return $frob;
d4ccd9a8 50}
05e2d404 51
d4ccd9a8
JRT
52sub frobulate { ## no critic "shizzle"
53 return $frob;
54}
55
56sub frobulate { ## no critic (shizzle)
57 return $frob;
58}
05e2d404
JRT
59
60sub fornicate { ## no critic qw(shizzle)
61 return $forn;
62}