Timbus

    method !STORE(\$to_store) {
        Q:PIR {
        .local pmc self, to_store, items, storage
        self = find_lex 'self'
        to_store = find_lex '$to_store'

        # We create a new storage hash, in case we are referenced in
        # what is being stored.
        storage = root_new ['parrot';'Hash']
        setattribute self, '$!storage', storage