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