Login
215f6507c275d0bd4de682a7a0f59e91091e648b
[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 }