Help for this page

Select Code to Download


  1. or download this
    BEGIN{print "BEGIN:",grep { $_ eq chaos}keys %::;print"\n"}
INIT{print "INIT:",grep { $_ eq chaos}keys %::;print"\n"}
...
print exists $::{"chaos"} && *{"::chaos"}{SCALAR},"\n";

$chaos = 1;
  2. or download this
    BEGIN:
INIT:chaos
SCALAR(0xe566e8)
END:chaos