use v6-perlito;
say '1..4';
sub subr( $a, $b ) { $a + $b };
class Mod2 {
sub subr( $a, $b ) { $a + $b + 1 }
}
my $x = 0;
$x = subr( 1, 2 );
if $x != 3 {
print 'not '
};
say 'ok 1 - ', $x;
sub subr3( @x ) { @x[0] + @x[1] };
$x = 0;
$x = subr3( [3, 4] );
if $x != 7 {
print 'not '
};
say 'ok 2 - ', $x;
# we are in the default "GLOBAL" namespace
$x = 0;
$x = GLOBAL::subr( 1, 2 );
if $x != 3 {
print 'not '
}
say 'ok 3 - ', $x;
if Mod2::subr( 1, 2 ) != 4 {
print 'not '
}
say 'ok 4 - ', Mod2::subr( 1, 2 );