$ cat lib/C.pm
package C;

use Moose;

sub whos_who {
    my ($self) = @_;

    print "whos_who() is in package: ", __PACKAGE__, "\n";
    print "\$self is in package: ", ref($self), "\n";

    return;
}

__PACKAGE__->meta->make_immutable;