sub A::func { print "called by: ", ref $_[0] || $_[0] }

@B::ISA = 'A';

my $o = bless [] => 'B';
$o->func;

__output__

called by: B
[download]

The class of your current object would be ref $self and the class where the method is defined in would be __PACKAGE__ (or CLASS, if you use CLASS.pm). I'm not sure if this is the answer you're looking for, but maybe Carp gives you more hints about walking the caller chain to find what information you want. rubyisms.pm also does some funky caller walking to make self behave like $_[0]...

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]

sub GetCaller {
    my $self = shift;

    my $i = 0;
    my $result;
    while (1) {
        my ($package, $filename, $line, $subroutine) = caller($i++);
        if (defined($package) && ($package ne "main")) {
            $result = $subroutine;
        }
        else {
            last;
        }
    };
    return $result;
}
[download]