use SVN::Client;
my $ctx = new SVN::Client(
    auth => [
        SVN::Client::get_simple_provider(),
        SVN::Client::get_simple_prompt_provider(
            sub {
                my $cred = shift;
                $cred->username($user);
                $cred->password($pass);
            },
            2
        ),
        SVN::Client::get_username_provider()
    ]
);