Login
347ccf9f3e907398933c21daee6a4f443f46295e
[gknop/Perl-Critic.git] / t / Variables / RequireLexicalLoopIterators.run
1 ## name Basic failure
2 ## failures 2
3 ## cut
4
5 for $foo ( @list ) {}
6 foreach $foo ( @list ) {}
7
8 #-----------------------------------------------------------------------------
9
10 ## name Basic passing
11 ## failures 0
12 ## cut
13
14 for my $foo ( @list ) {}
15 foreach my $foo ( @list ) {}
16
17 #-----------------------------------------------------------------------------
18
19 ## name Passing lexicals on loops with labels.
20 ## failures 0
21 ## cut
22
23 LABEL: for my $foo ( @list ) {}
24 ANOTHER_LABEL: foreach my $foo ( @list ) {}
25
26 BING: for ( @list ) {}
27 BANG: foreach ( @list ) {}
28
29 #-----------------------------------------------------------------------------
30
31 ## name Failing lexicals on loops with labels.
32 ## failures 2
33 ## cut
34
35 LABEL: for $foo ( @list ) {}
36 ANOTHER_LABEL: foreach $foo ( @list ) {}
37
38 #-----------------------------------------------------------------------------
39
40 ## name Implicit $_ passes
41 ## failures 0
42 ## cut
43
44 for ( @list ) {}
45 foreach ( @list ) {}
46
47 #-----------------------------------------------------------------------------
48
49 ## name Other compounds
50 ## failures 0
51 ## cut
52
53 for ( $i=0; $i<10; $i++ ) {}
54 while ( $condition ) {}
55 until ( $condition ) {}
56
57 #-----------------------------------------------------------------------------
58
59 ## name Ignore really, really old Perls. RT #67760
60 ## failures 0
61 ## cut
62
63 use 5.003;
64
65 foreach $foo ( @list ) {
66     bar( $foo );
67 }
68
69
70 #-----------------------------------------------------------------------------
71
72 ##############################################################################
73 #      $URL$
74 #     $Date$
75 #   $Author$
76 # $Revision$
77 ##############################################################################
78
79 # Local Variables:
80 #   mode: cperl
81 #   cperl-indent-level: 4
82 #   fill-column: 78
83 #   indent-tabs-mode: nil
84 #   c-indentation-style: bsd
85 # End:
86 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :