git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ControlStructures/ProhibitCStyleForLoops.run

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 for(@list){
   6   do_something();
   7 }
   8
   9 for my $element (@list){
  10   do_something();
  11 }
  12
  13 foreach my $element (@list){
  14   do_something();
  15 }
  16
  17 do_something() for @list;
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name Basic failure
  22 ## failures 1
  23 ## cut
  24
  25 for($i=0; $i<=$max; $i++){
  26   do_something();
  27 }
  28
  29 #-----------------------------------------------------------------------------
  30
  31 ##############################################################################
  32 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ControlStructures/ProhibitCStyleForLoops.run $
  33 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  34 #   $Author: clonezone $
  35 # $Revision: 2187 $
  36 ##############################################################################
  37
  38 # Local Variables:
  39 #   mode: cperl
  40 #   cperl-indent-level: 4
  41 #   fill-column: 78
  42 #   indent-tabs-mode: nil
  43 #   c-indentation-style: bsd
  44 # End:
  45 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :