Adding perl6 behavioral - mediator