1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array( 1 .. 7 ); 7my $after = $arr->items_after_incl(sub { $_ == 3 }); 8is_deeply 9 [ $after->all ], 10 [ 3 .. 7 ], 11 'items_after_incl ok'; 12 13ok $arr->items_after_incl(sub { $_ > 10 })->is_empty, 14 'items_after_incl empty resultset ok'; 15 16ok array->items_after_incl(sub { $_ == 1 })->is_empty, 17 'items_after_incl on empty array ok'; 18 19done_testing; 20