Help for this page

Select Code to Download


  1. or download this
    eval {
        scrub($decks);
    ...
    if ($@) {
        warn "Uh oh, we had a problem with $@";
    }
    
  2. or download this
    use Error;
    
    ...
        my $E = shift;
        warn "We're not sailing due to $E";
    };