[Perl 6] Subroutine with return values

sub add-one($n) {
    $n + 1;
}

add-one(3) == 4 or die "Wrong value";