{   package MyHeir;
    use parent -norequire => 'MyClass';
    use Role::Tiny::With;
    with 'MyRole';
}

my $h = 'MyHeir'->new;
say $h->$_ for qw( where role );