Help for this page

Select Code to Download


  1. or download this
    $iter_prod = NestedLoops([
   sub { iter(qw(a b c) },
   sub { iter(qw(x y z) },
]);
  2. or download this
    my $iter = do { my $done = 0;  sub { $done++ ? undef : 1 } };
iter_prod($iter, ...) if ...;
iter_prod($iter, ...) if ...;
  3. or download this
    my @iters;
push(@iters, ...) if ...;
push(@iters, ...) if ...;