Help for this page

Select Code to Download


  1. or download this
        package Silly::Die;
    use strict;
...
    sub trying { $OUTPUT ? $OUTPUT->($!) : $! }

    1;
  2. or download this
        use Silly::Die sub { qq(I died with: "@_") };
    open FILE, "foo" or die trying;
  3. or download this
      I died with: "No such file or directory" at ./test.pl line 9.