runme.pl | searchcode

/trunk/Examples/perl5/simple/runme.pl

#
Perl | 23 lines | 8 code | 8 blank | 7 comment | 0 complexity | dc8f98e58d57a66406271707d31693c6 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0


#
# Perl5 script for testing simple example

use example;

# Call our gcd() function

$x = 42;
$y = 105;
$g = example::gcd($x,$y);
print "The gcd of $x and $y is $g\n";

# Manipulate the Foo global variable

# Output its current value
print "Foo = $example::Foo\n";

# Change its value
$example::Foo = 3.1415926;

# See if the change took effect
print "Foo = $example::Foo\n";