Adding perl6 creational - abstract factory