What you want is the first argument of the caller, if the caller was called as a method. Without going into the merits of doing so, getting the first argument of the caller appears to be possible (see following output), but I think Perl doesn't track if subroutines were called as methods.

>perl -MCarp -e"sub g { carp } sub f { shift->g } bless({})->f"
 at -e line 1
        main::g('main=HASH(0x235f7c)') called at -e line 1
        main::f('main=HASH(0x235f7c)') called at -e line 1
[download]

If you don't want to pass the pointer explicitly, you'll need to provide a framework that does it for you.

Perl doesn't do OO. Perl has features that allow people to build OO systems on top of Perl.
- dragonchild, promoting Moose