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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 if ($condition1){
   6   $foo;
   7 }
   8 elsif ($condition2){
   9   $bar;
  10 }
  11 elsif ($condition3){
  12   $bar;
  13 }
  14 else {
  15   $nuts;
  16 }
  17
  18 if ($condition1){
  19   $foo;
  20 }
  21 else {
  22   $nuts;
  23 }
  24
  25 if ($condition1){
  26   $foo;
  27 }
  28
  29 foreach (1,2,3){
  30  $foo;
  31 }
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name Basic failure
  36 ## failures 1
  37 ## cut
  38
  39 if ($condition1){
  40   $foo;
  41 }
  42 elsif ($condition2){
  43   $bar;
  44 }
  45 elsif ($condition3){
  46   $baz;
  47 }
  48 elsif ($condition4){
  49   $barf;
  50 }
  51 else {
  52   $nuts;
  53 }
  54
  55 #-----------------------------------------------------------------------------
  56
  57 ## name With custom max_elsif value.
  58 ## failures 1
  59 ## parms {max_elsif => 1}
  60 ## cut
  61
  62 if ($condition1){
  63   $foo;
  64 }
  65 elsif ($condition2){
  66   $bar;
  67 }
  68 elsif ($condition3){
  69   $baz;
  70 }
  71 else {
  72   $nuts;
  73 }
  74
  75 #-----------------------------------------------------------------------------
  76
  77 ##############################################################################
  78 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ControlStructures/ProhibitCascadingIfElse.run $
  79 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  80 #   $Author: clonezone $
  81 # $Revision: 2187 $
  82 ##############################################################################
  83
  84 # Local Variables:
  85 #   mode: cperl
  86 #   cperl-indent-level: 4
  87 #   fill-column: 78
  88 #   indent-tabs-mode: nil
  89 #   c-indentation-style: bsd
  90 # End:
  91 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :