adding perl6 structural decorator, structural adapter