File Coverage

blib/lib/Alien/Build/Plugin/Fetch/PromptBeforeDownload.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	4	5	80.0
subroutine	5	5	100.0
pod	1	1	100.0
total	30	31	96.7

package Alien::Build::Plugin::Fetch::PromptBeforeDownload;

use strict;
use warnings;
use Alien::Build::Plugin;

# ABSTRACT: Alien::Build plugin to prompt a user before making external download
our $VERSION = '0.57'; # VERSION


sub init
{
  my($self, $meta) = @_;

  $meta->add_requires('share' => 'ExtUtils::MakeMaker' => 0 );

  $meta->before_hook(
    fetch => sub {
      my($build, $url) = @_;
      $url ||= $build->meta_prop->{plugin_download_negotiate_default_url};
      my $value = ExtUtils::MakeMaker::prompt("Downloading $url, is that okay?", $ENV{ALIEN_DOWNLOAD} || 'yes');
      unless($value =~ /^(y|yes)$/i)
      {
        $build->log("User refussed to download $url");
        # Do a hard exit.  If the user insists, there isn't a way to recover really.
        exit 2;
      }
    }
  );
}

1;

__END__