1## name Basic passing
2## failures 0
3## cut
4
5for(@list){
6  do_something();
7}
8
9for my $element (@list){
10  do_something();
11}
12
13foreach my $element (@list){
14  do_something();
15}
16
17do_something() for @list;
18
19#-----------------------------------------------------------------------------
20
21## name Basic failure
22## failures 1
23## cut
24
25for($i=0; $i<=$max; $i++){
26  do_something();
27}
28
29#-----------------------------------------------------------------------------
30
31# Local Variables:
32#   mode: cperl
33#   cperl-indent-level: 4
34#   fill-column: 78
35#   indent-tabs-mode: nil
36#   c-indentation-style: bsd
37# End:
38# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
39