PageRenderTime 17ms CodeModel.GetById 11ms app.highlight 5ms RepoModel.GetById 1ms app.codeStats 0ms

/tags/ttn-post-libtool-1-4-3-upgrade/SWIG/Examples/perl5/constants2/example.pl

#
Perl | 16 lines | 10 code | 5 blank | 1 comment | 0 complexity | 779673067941a96381eddd104d04fc4b MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
 1# file: example.pl
 2
 3use example;
 4
 5print "ICONST  = ", example::ICONST, " (should be 42)\n";
 6print "FCONST  = ", example::FCONST, " (should be 2.1828)\n";
 7print "CCONST  = ", example::CCONST, " (should be 'x')\n";
 8print "CCONST2 = ", example::CCONST2," (this should be on a new line)\n";
 9print "SCONST  = ", example::SCONST, " (should be 'Hello World')\n";
10print "SCONST2 = ", example::SCONST2, " (should be '\"Hello World\"')\n";
11print "EXPR    = ", example::EXPR,   " (should be 48.5484)\n";
12print "iconst  = ", example::iconst, " (should be 37)\n";
13print "fconst  = ", example::fconst, " (should be 3.14)\n";
14
15
16