Add --no-prompt option to reindexdist script

metacpan · Jan 15, 2015 · 032e592 · 032e592
1 parent 47d5985
commit 032e592
Showing 1 changed file with 14 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Script/ReindexDist.pm b/lib/MetaCPAN/Script/ReindexDist.pm
@@ -45,6 +45,13 @@ has sources => (
     lazy_build => 1,
 );
 
+has prompt => (
+    is            => 'ro',
+    isa           => 'Bool',
+    default       => 1,
+    documentation => q{Prompt for confirmation (default true)},
+);
+
 sub _build_sources {
     my ($self) = @_;
     return [ map { $_->download_url } @{ $self->releases } ];
@@ -73,8 +80,13 @@ sub confirm {
         if !@{ $self->releases };
 
     print "Reindexing ${\ $self->distribution }\n",
-        ( map {"  $_\n"} @{ $self->sources } ),
-        "Continue? (y/n): ";
+        ( map {"  $_\n"} @{ $self->sources } );
+
+    if ( !$self->prompt ) {
+        return;
+    }
+
+    print 'Continue? (y/n): ';
 
     my $confirmation = <STDIN>;