use Devel::Caller 'caller_cv';

sub foo {
  my $selfref = caller_cv(0);
  # ...
}