5
print "ICONST = ", $example::ICONST, " (should be 42)\n";
6
print "FCONST = ", $example::FCONST, " (should be 2.1828)\n";
7
print "CCONST = ", $example::CCONST, " (should be 'x')\n";
8
print "CCONST2 = ", $example::CCONST2," (this should be on a new line)\n";
9
print "SCONST = ", $example::SCONST, " (should be 'Hello World')\n";
10
print "SCONST2 = ", $example::SCONST2, " (should be '\"Hello World\"')\n";
11
print "EXPR = ", $example::EXPR, " (should be 48.5484)\n";
12
print "iconst = ", $example::iconst, " (should be 37)\n";
13
print "fconst = ", $example::fconst, " (should be 3.14)\n";
16
if ($example::EXTERN) {
17
print "EXTERN = ", example.EXTERN, " (Arg! This shouldn't print anything)\n";
19
print "EXTERN isn't defined (good)\n";
23
print "FOO = ", example.FOO, "(Arg! This shouldn't print anything)\n";
25
print "FOO isn't defined (good)\n";