view release on metacpan or  search on metacpan

example/example.pl  view on Meta::CPAN

#!/perl

package ExampleUsage;

use ExampleSyntax;
use POSIX qw(strftime);

debug "This is a test\n";

function example ($a, $b) {
    return $a + $b;
};
print "1 + 2 = " . example(1, 2) . "\n";

has 'a' => { is => 'rw', isa => 'Int', default => '123', random => 'abc' };
print "a is " . a . "\n";
a(15);
print "a is " . a . "\n";

function example2 ($a) {
    return $a * a;
}
print "example2 = " . example2(10) . "\n";

my $str = 'sprintf';
my $num = 1.0362;
auto_sprintf print "This becomes a $str, num is 1.0362: $num \n";