1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use Test::More; 7 8use CPS::Functional qw( kunfold ); 9 10my @nums; 11 12kunfold( 13 1, 14 sub { 15 my ( $n, $kmore, $kdone ) = @_; 16 17 if( $n < 5 ) { 18 $kmore->( $n + 1, $n ); 19 } 20 else { 21 $kdone->(); 22 } 23 }, 24 sub { 25 @nums = @_; 26 } 27); 28 29is_deeply( \@nums, [ 1, 2, 3, 4 ], 'kunfold sync - @nums' ); 30 31done_testing; 32