Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl
#
...
  1/shift;
}
```

Select or download this

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