use Carp;
use Sub::Name;

subname(
  my_anonymous_sub => sub {
    croak("Whee!");
  }
)->();

__END__
Whee! at - line 6
        main::my_anonymous_sub() called at - line 8