sub callMethod
{
  local $SIG{__DIE__} = sub {confess ("error calling someMethod: $_[0]")};
  someMethod(0);
}