view release on metacpan or  search on metacpan

examples/kforeach.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use CPS qw( gkforeach kpar );
use CPS::Governor::Deferred;

my $gov = CPS::Governor::Deferred->new;

gkforeach( $gov, [ 1 .. 10 ],
   sub { 
      my ( $item, $knext ) = @_;

      print "A$item ";
      goto &$knext;
   },
   sub {},
);

gkforeach( $gov, [ 1 .. 10 ],
   sub {
      my ( $item, $knext ) = @_;

      print "B$item ";
      goto &$knext;
   },
   sub {},
);

$gov->flush;

print "\n";