use 5.008;
use strict;
use warnings;
use lib qw{ inc };
use Astro::SIMBAD::Client::Build;
use Astro::SIMBAD::Client::Meta;
use Module::Build;
use Config;
(my $mbv = Module::Build->VERSION) =~ s/_//g;
my $meta = Astro::SIMBAD::Client::Meta->new();
my %attr = (
dist_author => 'Tom Wyant (wyant at cpan dot org)',
dist_abstract => 'Fetch astronomical data from SIMBAD 4.',
module_name => 'Astro::SIMBAD::Client',
build_requires => $meta->build_requires(),
get_options => {y => {}, n => {}},
requires => $meta->requires(
perl => $meta->requires_perl(),
),
add_to_cleanup => [ qw{ xt/author/optionals } ],
dynamic_config => 1,
license => 'perl',
);
$mbv >= 0.28 and $attr{meta_merge} = {
no_index => {
directory => [qw{ inc t xt }],
},
resources => {
bugtracker => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Astro-SIMBAD-Client',
},
};
$mbv >= 0.34
and $attr{auto_configure_requires} = 0; # Don't require Module::Build
my $bldr = Astro::SIMBAD::Client::Build->new (%attr);
my %opt = $bldr->args();
my (@exe_files, @clean_files);
print <<eod;
The simbadc script is a simple wrapper for Astro::SIMBAD::Client, which
may be used interactively or as a Unix filter.
eod
if ($opt{n}) {
print "Because you have asserted -n, simbadc will not be installed.\n";
} elsif ($opt{y}) {
print "Because you have asserted -y, simbadc will be installed.\n";
push @exe_files, 'simbadc';
} else {
print <<eod;
To supress the following prompt, run Build.PL with the -y option to
install the script, or with the -n option to not install the script.
Setting environment variable PERL_MM_USE_DEFAULT true, or running non-
interactively without data on STDIN will also cause the script not to
be installed.
eod
$bldr->prompt ("Do you want to install simbadc?", 'n') =~ m/^y/i
and push @exe_files, 'simbadc';
}
if ($^O eq 'MSWin32') {
@exe_files = map {"bin/$_"} @exe_files;
foreach (@exe_files) {`pl2bat $_`}
@clean_files = @exe_files = grep {-e $_} map {"$_.bat"} @exe_files;
} elsif ($^O eq 'VMS') {
foreach my $fni (map {"[.bin]$_"} @exe_files) {
my $fno = "$fni.com";
open (my $fhi, '<', $fni) or die "Unable to open $fni: $!\n";
open (my $fho, '>', $fno) or die "Unable to open $fno: $!\n";
print $fho "$Config{startperl}\n";
while (<$fhi>) {print $fho $_}
close $fho;
close $fhi;
}
@clean_files = @exe_files = map {"[.bin]$_.com"} @exe_files;
} else {
@exe_files = map {"bin/$_"} @exe_files;
}
@clean_files and $bldr->add_to_cleanup (\@clean_files);
@exe_files and $bldr->script_files (\@exe_files);
$bldr->create_build_script ();