1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array(1, undef, 3); 7 8ok $arr->defined(0), 'defined(0) ok'; 9ok !$arr->defined(1), '!defined(1) ok'; 10ok $arr->defined(2), 'defined(2) ok'; 11ok !$arr->defined(3), '!defined(3) ok'; 12 13done_testing 14