Select Code to Download

sub create_with_roles
{
    my ($class, $roles, %args) = @_;
...
    Moose::Util::ensure_all_roles( $class, @$roles );
    return $class->new( %args );
}

my $app = MyApp->create_with_roles(
    [qw( List Of Role Names )],
    %constructor_arguments
);