view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    'File::Find'            => '0',
    'File::Which'           => '0',
    'Digest::SHA'           => '0',
    'Archive::Extract'      => '0',
    'Archive::Tar'          => '0',
    'Module::Build'         => '0.36',
  },
  configure_requires        => {  #need to have for running: perl Build.PL
    'File::Spec'            => '0',
    'File::Path'            => '2.07',
    'File::Copy::Recursive' => '0',
    'File::Fetch'           => '0.50',
    'File::Find'            => '0',
    'File::Which'           => '0',
    'Digest::SHA'           => '0',
    'Archive::Extract'      => '0',
    'Module::Build'         => '0.36',
  },
  meta_merge => {
    resources  => {
      bugtracker => 'https://github.com/PerlGameDev/Alien-CMake/issues',
      repository => 'http://github.com/PerlGameDev/Alien-CMake',
      x_MailingList => 'https://groups.google.com/forum/#!forum/perl5-alien',
      x_IRC => "irc://irc.perl.org/#native",
    }
  },
  create_readme => 1,
  share_dir => 'sharedir',
  # sharedir is used for storing compiled/prebuilt binaries of CMake lib
  # avoid using 'share' name as M::B doe not handle well paths like /xx/yy/share/zz/ww/share/xx
);
$build->add_to_cleanup('download');
$build->create_build_script();

#### clean build_done stamp; force rebuild when running 'Build'
$build->clean_build_done_marker;

print "\nWelcome to Alien::CMake module installation";
print "\n-----------------------------------------\n\n";

#### check what options we have for our platform
my $rv;
my @candidates = ();

if($rv=check_already_existing()) {
  push @candidates, $rv;
};

if($rv=check_prebuilt_binaries($build->os_type)) {
  push @candidates, @{$rv};
};

if($rv=check_src_build($build->os_type)) {
  push @candidates, @{$rv};
};

push @candidates, { title => 'Quit installation' };

#### ask user what way to go
my $i = 1;
my $prompt_string = "\nYou have the following options:\n";
foreach my $c (@candidates) {
  $prompt_string .= "[" . $i++ . "] " . $c->{title} . "\n"
}
$prompt_string .= "\nWhat way do you wanna go?";
my $ans = $build->prompt($prompt_string, 1);

#### store build params into 'notes'
if(($ans>0) && ($ans<scalar(@candidates))) {
  $build->notes('build_params', $candidates[$ans-1]);
}
else {
  $build->notes('build_params', undef); # just to be sure
}