RosettaCodeData/Task/Introspection/Perl/introspection-2.pl
2023-07-01 13:44:08 -04:00

3 lines
228 B
Perl

#$bloop = -123; # uncomment this line to see the difference
no strict 'refs'; # referring to variable by name goes against 'strict' pragma
if (defined($::{'bloop'})) {print abs(${'bloop'})} else {print "bloop isn't defined"};