# Pastebin FnMQP7wY unit class Mint; my $default-termination-points = set 'system', 'transfer', 'reward', 'penalty'; submethod TWEAK() { method register-termination-points($new-termination-points?) { my $termination-points; if $new-termination-points { $termination-points = $default-termination-points (|) $new-termination-points; } else { $termination-points = $default-termination-points; } return $termination-points; } } method get-registered-termination-points { ... }