Help for this page

Select Code to Download


  1. or download this
    > Perl -MO=Deparse -w
use strict;
sub DEBUG() { 0 }
...
print $My::Package::hash{'key'}, $/;
print 8.141592, $/;
- syntax OK
  2. or download this
    sub DEBUG {
    0;
}
...
print SymRef()->{'key'}, $/;
print PI() + 5, $/;
- syntax OK
  3. or download this
    Can't use string ("My::Package::hash") as a HASH ref
while "strict refs" in use