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