1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array qw/foo bar baz quux/; 7 8is_deeply 9 [ $arr->kv->all ], 10 [ 11 [ 0 => 'foo' ], 12 [ 1 => 'bar' ], 13 [ 2 => 'baz' ], 14 [ 3 => 'quux' ], 15 ], 16 'array kv ok'; 17 18ok array->kv->is_empty, 'empty array kv ok'; 19 20done_testing; 21