Adding perl6 behavioral - memento