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