Examples/perl5/constants2/runme.pl

   1 # file: runme.pl
   2
   3 use example;
   4
   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";
  14
  15
  16