lib/Switch/t/nested.t

   1 use Switch;
   2
   3 print "1..4\n";
   4
   5 my $count = 1;
   6 for my $count (1..3, 'four')
   7 {
   8         switch ([$count])
   9         {
  10                 case qr/\d/ {
  11                                 switch ($count) {
  12                                         case 1     { print "ok 1\n" }
  13                                         case [2,3] { print "ok $count\n" }
  14                                 }
  15                             }
  16                 case 'four' { print "ok 4\n" }
  17         }
  18 }