use Test::More;
use strict; use warnings FATAL => 'all';
use List::Objects::WithUtils 'hash';
{ package My::Hash;
use strict; use warnings FATAL => 'all';
use parent 'List::Objects::WithUtils::Hash';
}
my $foo = My::Hash->new(foo => 1, bar => 2);
isa_ok $foo->sliced('foo', 'bar'), 'My::Hash',
'subclassed hash ok';
done_testing;