{"body":"unit class Mint;\n\nmy $default-termination-points = set 'system', 'transfer', 'reward', 'penalty';\n\nsubmethod TWEAK() {\n    method register-termination-points($new-termination-points?) {\n        my $termination-points;\n        if $new-termination-points {\n            $termination-points = $default-termination-points (|) $new-termination-points;\n        } else {\n            $termination-points = $default-termination-points;\n        }\n        return $termination-points;\n    }\n}\n\nmethod get-registered-termination-points { ... }\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/FnMQP7wY","modified":1619700355,"id":"FnMQP7wY","size":530,"lines":17,"own_paste":false,"theme":"","date":1619700355}