sub eg { $_[0]->test($_[1]); } sub eg { One::test(@_); } sub eg { Two->test($_[1]); } sub eg { One->test($_[1]); }