1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array; 7ok !$arr->has_any, 'negative bare has_any ok'; 8$arr->push(qw/ a b c /); 9ok $arr->has_any, 'bare has_any ok'; 10ok $arr->has_any(sub { /b/ }), 'has_any ok'; 11ok !$arr->has_any(sub { /d/ }), 'negative has_any ok'; 12 13ok array(1, 2, undef)->has_any(sub { !defined }), 14 'has_any search for undef ok'; 15 16done_testing; 17