arunbear

" Select the current method
"
" ]M move to the end of the method
" V  enter visual line mode
" %  move to the matching open brace
"
nnoremap <leader>m ]MV%

" Copy the current method and paste below
" Use this after the above

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