class TurkishStr is Str { 
   ...
}

multi sub uc(TurkishStr $x) {
   # handle upper-casing i to I with dot above somehow
}

# now you can write

say uc $string;

# and it will work both for ordinary stringsand for Turkish Strings.