Help for this page

Select Code to Download

Select or download this

unless( defined( $variable= foo( $variable))) die "horrible death: $sn
+afu::ERROR";
package snafu;
my $ERROR;
...
       return undef;
     }