[Perl 6] Subroutine with type info

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

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