Help for this page

Select Code to Download


  1. or download this
    local *CORE::GLOBAL::die = sub (@) {
    die scalar(localtime()), ' ', @_;
};
  2. or download this
    $ perl -e'local *CORE::GLOBAL::die = sub (@) {CORE::die(scalar(localti
+me()), " ", @_);}; die "Foo!"'
Foo! at -e line 1.
$
  3. or download this
    $ perl -e'print prototype "CORE::die"'
@$
  4. or download this
    BEGIN {
    *CORE::GLOBAL::warn = sub (@) {
        CORE::warn(scalar(localtime), " ", @_);
...
__END__
Foo! at -e line 1.
Bar! at -e line 1.