Some years ago, i used the goto when i needed a throw method with a stack trace that starts where the method was called. I used Exception::Class exceptions, and the method looked something like this:

sub throw {
  my $self = shift;
  my %args = @_;

  @_ = ('Local::Exception',
         # ... more params taken from %args and from the object ...
       );
  goto &Exception::Class::Base::throw;
}
[download]