1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4{ package My::List; 5 use strict; use warnings FATAL => 'all'; 6 require List::Objects::WithUtils::Array; 7 use parent 'List::Objects::WithUtils::Array'; 8} 9 10my $foo = My::List->new; 11isa_ok $foo->map(sub { $_ }), 'My::List', 'subclassed obj map ok'; 12 13done_testing; 14