add perl6 creational - factory_method