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