Help for this page

Select Code to Download


  1. or download this
    package Test::Trap;

use version; $VERSION = qv('0.1.0');
  2. or download this
        # Send
    trap { $msg->send or $error_msg = "Error: $! $@\n" };
    $_ and $error_msg .= ": $_\n" for $trap->die, $trap->stdout, $trap
+->stderr;
    exit_with_error("email_csv_file() failed: $error_msg") if( $error_
+msg );