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