Allow user-defined policies. Enable interactive failure handling when Term::ReadKey...

[perl/modules/rgit.git] / lib / App / Rgit.pm

diff --git a/lib/App/Rgit.pm b/lib/App/Rgit.pm
index f877d7882580e24c9624393b7c8ddd9c4b9bdddc..a21e248706c9b976bc8b6bc4f78bd6836eaa2c53 100644 (file)
--- a/lib/App/Rgit.pm
+++ b/lib/App/Rgit.pm
@@ -43,8 +43,9 @@ sub new {
  );
  return unless defined $config;
  my $command = App::Rgit::Command->new(
-  cmd  => $args{cmd},
-  args => $args{args},
+  cmd    => $args{cmd},
+  args   => $args{args},
+  policy => $args{policy},
  );
  return unless defined $command;
  $class->SUPER::new(