view release on metacpan or  search on metacpan

t/41kgrep.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use CPS::Functional qw( kgrep );

my @nums;

kgrep(
   [ 1, 2, 3, 4 ],
   sub {
      my ( $item, $k ) = @_;
      $k->( $item % 2 == 0 );
   },
   sub {
      @nums = @_;
   },
);

is_deeply( \@nums, [ 2, 4 ], 'kgrep sync - @nums' );

@nums = ();

done_testing;