Help for this page

Select Code to Download


  1. or download this
    BEGIN {
    eval { die };
...
}

print($@ ? 1 : 0, "\n");       # 0
  2. or download this
    BEGIN {
    eval {
...
    };
};
my $use_readkey = 1 unless $@;
  3. or download this
    my $use_readkey;
BEGIN {
...
    };
    $use_readkey = 1 unless $@;
}
  4. or download this
    my $use_readkey;
BEGIN {
   $use_readkey = eval { require Term::ReadKey };
}
  5. or download this
    my $use_readkey = eval { require Term::ReadKey };