Add a diagnostics mode. Only print infos when this mode is enabled

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

diff --git a/lib/App/Rgit.pm b/lib/App/Rgit.pm
index 302d713ddbbd9b3b17250c484fe2a51b5c165337..e4436039f20b16c02d0972da1da542358032c976 100644 (file)
--- a/lib/App/Rgit.pm
+++ b/lib/App/Rgit.pm
@@ -38,8 +38,9 @@ Creates a new L<App::Rgit> object that's bound to execute the command C<$cmd> on
 sub new {
  my ($class, %args) = &validate;
  my $config = App::Rgit::Config->new(
-  root => $args{root},
-  git  => $args{git},
+  root  => $args{root},
+  git   => $args{git},
+  debug => $args{debug},
  );
  return unless defined $config;
  my $command = App::Rgit::Command->new(