package Foo;
sub Bar::method { my $ego = ego($_[0]); ... }

##</code><code>##

$obj->Class::method(...);