-
Notifications
You must be signed in to change notification settings - Fork 0
/
Makefile.PL
118 lines (105 loc) · 3.01 KB
/
Makefile.PL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
#!/usr/bin/env perl
use strict;
use warnings;
use ExtUtils::MakeMaker 6.64; # 6.64 for TEST_REQUIRES
use Getopt::Long; # Technique inspired by IO::Lambda
use IO::Socket::INET;
my $online_tests;
if($ENV{'AUTHOR_TESTING'}) {
$online_tests = are_online();
} else {
Getopt::Long::GetOptions('online-tests!' => \$online_tests);
if(!defined($online_tests)) {
$online_tests = are_online();
}
if(!$online_tests) {
print "On-line tests have been disabled\n";
}
}
if($online_tests) {
open(my $enabled, '>', 't/online.enabled') || die "Can't touch t/online.enabled $!";
close($enabled) || die "Can't touch t/online.enabled $!";
} else {
unlink('t/online.enabled');
}
my $dist = {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz'
};
if($^O eq 'darwin') {
$dist->{'TAR'} = 'gtar';
}
WriteMakefile(
NAME => 'Geo::Coder::Abbreviations',
AUTHOR => q{Nigel Horne <njh@bandsman.co.uk>},
VERSION_FROM => 'lib/Geo/Coder/Abbreviations.pm',
ABSTRACT_FROM => 'lib/Geo/Coder/Abbreviations.pm',
((defined($ExtUtils::MakeMaker::VERSION) &&
($ExtUtils::MakeMaker::VERSION >= 6.3002))
? ('LICENSE'=> 'GPL')
: ()),
PL_FILES => {},
BUILD_REQUIRES => {
}, TEST_REQUIRES => {
'Test::DescribeMe' => 0,
'Test::Most' => 0,
'Test::NoWarnings' => 0,
'Test::Needs' => 0
# 'Test::Kwalitee' => 0,
}, PREREQ_PM => {
'JSON::MaybeXS' => 0,
'LWP::Simple::WithCache' => 0,
'LWP::Protocol::https' => 0,
}, dist => $dist,
clean => { FILES => 'Geo-Coder-Abbreviations-*' },
META_MERGE => {
'meta-spec' => { version => 2 },
resources => {
repository => {
type => 'git',
url => 'git://github.com/nigelhorne/Geo-Coder-Abbreviations.git',
web => 'https://github.com/nigelhorne/Geo-Coder-Abbreviations',
repository => 'https://github.com/nigelhorne/Geo-Coder-Abbreviations',
}, bugtracker => {
# web => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Geo-Coder-Abbreviations',
web => 'https://github.com/nigelhorne/Geo-Coder-Abbreviations/issues',
url => 'https://github.com/nigelhorne/Geo-Coder-Abbreviations/issues',
mailto => 'bug-Geo-Coder-Abbreviations@rt.cpan.org'
},
},
},
MIN_PERL_VERSION => '5.6.2' # Probably would work, but never tested on earlier versions than this
);
sub are_online
{
return 0 if($ENV{'NO_NETWORK_TESTING'} || $ENV{'TRAVIS_PERL_VERSION'}) || $ENV{'AUTOMATED_TESTING'} || (!-t STDIN);
if(my $s = IO::Socket::INET->new(
PeerAddr => 'github.com:443',
Timeout => 5
)) {
if($ENV{'PERL_MM_USE_DEFAULT'}) {
close($s);
return 1;
}
print <<EOF;
You appear to be directly connected to the Internet. I have some tests
that download the data needed to run these tests.
EOF
close($s);
# Timeout inspired by Mail::IMAPClient
my $rc;
eval {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm(60);
$rc = prompt('Do you want to enable these tests?', 'y') =~ /^y/i ? 1 : 0;
alarm(0);
};
if($@) {
print "\n";
return 1; # The default is 'y'
}
return $rc;
}
print "On-line tests disabled because I couldn't detect an Internet connexion\n";
return 0;
}