arunbear

pirl @> sub hats : lvalue { my ($self) = @_; $self->{hats}; }
@var = ();
pirl @> $obj = bless {}
@var = (
         bless( {}, 'Shell::Perl::sandbox' )
       );
pirl @> $obj->hats
@var = (
         undef
       );

arunbear

# Example usage of https://www.artima.com/weblogs/viewpost.jsp?thread=101605
# with added commutativity

import itertools

registry = {}

class MultiMethod(object):
    def __init__(self, name):
        self.name = name