Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (13 sloc) 0.33 kB
plan(4);
{
my int $x;
ok(~$x eq '0', 'native int initialized to 0');
$x := 42;
ok($x == 42, 'can set native int');
sub foo() {
my $y := 58;
ok($x == 42, 'can access native ints from nested scopes');
ok($x + $y == 100, 'can add native ints to each other');
}
foo();
}
Jump to Line
Something went wrong with that request. Please try again.