Select Code to Download

sub set_normalized_designation {
    my $self = shift;
...
    $designation =~ /.../ or
        die "$designation is not correctly normalized";
}

class Thing {
    my $.title is rw;
...
        return $normalized_des;
    }
}