sub create_with_roles
{
    my ($class, $roles, %args) = @_;

    for my $role (@$roles)
    {
        next if $role =~ /::/;
        $role = 'MyApp::Role::' . $role;
    }

    Moose::Util::ensure_all_roles( $class, @$roles );
    return $class->new( %args );
}