Login
Created a new Policy to prohibit an unrestricted ## no critic.
[gknop/Perl-Critic.git] / t / Miscellanea / ProhibitUnrestrictedNoCritic.run
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
13 sub 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
28 sub frobulate { ## no critic (shizzle)
29     return $frob;
30
31
32 sub fornicate { ## no critic qw(shizzle)
33     return $forn;
34 }