1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $hs = 7 array(qw/ann andy bob fred frankie/) 8 ->part_to_hash(sub { ucfirst substr $_, 0, 1 }); 9 10isa_ok $hs, 'List::Objects::WithUtils::Hash'; 11 12ok $hs->keys->count == 3, 'part_to_hash created 3 keys'; 13 14for (qw/A B F/) { 15 isa_ok $hs->get($_), 'List::Objects::WithUtils::Array', "part '$_'"; 16} 17 18is_deeply +{ $hs->export }, 19 +{ A => [qw/ann andy/], B => ['bob'], F => [qw/fred frankie/] }, 20 'parts look ok'; 21 22done_testing; 23