RosettaCodeData/Task/Optional-parameters/Perl-6/optional-parameters-2.pl6

method sorttable-pos($column = 0, $reverse?, &ordering = &infix:<cmp>) {
    my @result = self»[$column].sort: &ordering;
    return $reverse ?? @result.reverse !! @result;
}