Login
Created a new Policy to prohibit an unrestricted ## no critic.
[gknop/Perl-Critic.git] / t / Miscellanea / ProhibitUnrestrictedNoCritic.run
CommitLineData
05e2d404
JRT
1##----------------------------------------------------------------------------
2## name standard failures
3## failures 6
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 qw();
12
13sub frobulate { ## no critic
14 return $frob;
15}
16
17##----------------------------------------------------------------------------
18## name standard passes
19## failures 0
20## cut
21
22## no critic (shizzle)
23## no critic qw(shizzle) #blah,blah
24
25$foo = $bar; ## no critic (shizzle);
26$foo = $bar; ## no critic qw(shizzle);
27
28sub frobulate { ## no critic (shizzle)
29 return $frob;
30
31
32sub fornicate { ## no critic qw(shizzle)
33 return $forn;
34}