Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

use strict;
use Ryu;
my $first = Ryu::Source->new;
my @actual;
$first->skip(2)->each(sub {
push @actual, $_;
});
$first->emit($_) for 1..5;
cmp_deeply(\@actual, [ 3..5 ], 'skip operation was performed');
done_testing;