sub foo {
	my $class = shift;
	print __PACKAGE__, "\n";
	require mro;
	my $grandparent = $class->mro::get_linear_isa->[2];
	my $gp_method   = $grandparent->can('foo');
	$class->$gp_method(@_);
}