MooseX::Traits

package Class;
with 'MooseX::Traits';

...
Class->new_with_traits( traits => ['Role::A', 'Role::B'], args => 'go here' );