Merge pull request #739 from metacpan/mickey/script_cleanup

Removed unused duplicated code
metacpan · Nov 1, 2017 · da9e601 · da9e601
2 parents 15c18db + 62ff6f8
commit da9e601
Showing 1 changed file with 0 additions and 17 deletions.
diff --git a/lib/MetaCPAN/Script/Mapping.pm b/lib/MetaCPAN/Script/Mapping.pm
@@ -4,8 +4,6 @@ use Moose;
 
 use Cpanel::JSON::XS qw( decode_json );
 use DateTime ();
-use IO::Interactive qw( is_interactive );
-use IO::Prompt qw( prompt );
 use Log::Contextual qw( :log );
 use MetaCPAN::Script::Mapping::CPAN::Author       ();
 use MetaCPAN::Script::Mapping::CPAN::Distribution ();
@@ -457,21 +455,6 @@ sub deploy_mapping {
     1;
 }
 
-sub _prompt {
-    my ( $self, $msg ) = @_;
-
-    if (is_interactive) {
-        print colored( ['bold red'], "*** Warning ***: $msg" ), "\n";
-        my $answer = prompt
-            'Are you sure you want to do this (type "YES" to confirm) ? ';
-        if ( $answer ne 'YES' ) {
-            print "bye.\n";
-            exit 0;
-        }
-        print "alright then...\n";
-    }
-}
-
 __PACKAGE__->meta->make_immutable;
 1;