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

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