RosettaCodeData/Task/Boolean-values/Perl/boolean-values-4.pl
Ingy döt Net 518da4a923 B
2013-04-10 16:19:29 -07:00

5 lines
289 B
Perl

# This does not work
# true and false are not special so will be treated as bareword strings
if (true) { print "true is true\n" }; # This prints
if (false) { print "false is true\n" }; # So does this
if (spongebob) { print "spongebob is true\n" }; # A bareword string