如何使用perl Git:：Repository模块来执行；git push-u源代码主控“；？

我正在使用Perl的Git:：Repository模块来执行Git操作。 我被困在执行以下等效操作：

git push - u origin master

$r->run ( 'push', '-u' => { origin => 'master' } );

---

未测试，但根据文档（）的规定

$r->run(push => '-u', 'origin', 'master');

---

或者与

$r->command

相同，这取决于您想要返回文本还是对象。

我最终能够通过以下方法实现这一点：

git push - u origin master

$r->run ( 'push', '-u' => { origin => 'master' } );

---

在我自己的工作中，我发现这个模块的级别非常低，在使用纯Perl时，它没有为我添加任何内容。