my $gp = mro::get_linear_isa(ref $obj)->[1];