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

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