#!/usr/bin/env perl
use perl5i::latest;
use Test::More;
my @numbers = ( 1 .. 10 );
is( @numbers->true( sub { $_ < 5 } ), 4 );
is( @numbers->true( sub { $_ > 9 } ), 1 );
done_testing();
#!/usr/bin/env perl
use perl5i::latest;
use Test::More;
my @numbers = ( 1 .. 10 );
is( @numbers->true( sub { $_ < 5 } ), 4 );
is( @numbers->true( sub { $_ > 9 } ), 1 );
done_testing();