git.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/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 Implicit $_ passes
  20 ## failures 0
  21 ## cut
  22
  23 for ( @list ) {}
  24 foreach ( @list ) {}
  25
  26 #-----------------------------------------------------------------------------
  27
  28 ## name Other compounds
  29 ## failures 0
  30 ## cut
  31
  32 for ( $i=0; $i<10; $i++ ) {}
  33 while ( $condition ) {}
  34 until ( $condition ) {}
  35
  36 #-----------------------------------------------------------------------------
  37
  38 ##############################################################################
  39 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/RequireLexicalLoopIterators.run $
  40 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  41 #   $Author: clonezone $
  42 # $Revision: 2187 $
  43 ##############################################################################
  44
  45 # Local Variables:
  46 #   mode: cperl
  47 #   cperl-indent-level: 4
  48 #   fill-column: 78
  49 #   indent-tabs-mode: nil
  50 #   c-indentation-style: bsd
  51 # End:
  52 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :