use strict;
use ExtUtils::MakeMaker qw(prompt WriteMakefile);
use File::Spec;
sub _f ($) {File::Spec->catfile(split /\//, shift);}
if ($ENV{PERL_TEST_DUMMY_PERL5_MAKE_EXPECT}) {
if ($ENV{PERL_TEST_DUMMY_PERL5_MAKE_EXPECT} eq "Oui, je suis Catherine Deneuve") {
if ("@ARGV" eq "Belle de jour") {
my %q = (
"6*8" => "48",
"3*2" => "6",
"3*7" => "21",
"Unicode Codepoint of Won, hexadecimal" => "20A9",
);
my @q = keys %q;
my $q = scalar @q;
print "I will ask you $q questions now\n";
my $ok = 1;
while (@q) {
my $i = int rand scalar @q;
my $q = $q[$i];
my $a = delete $q{$q};
my $but = prompt($q);
if (lc $but eq lc $a) {
print "Thank you\n";
} else {
warn "Wrong answer\n";
$ok = 0;
}
@q = keys %q;
}
if ($ok) {
open FH, ">ok.ts" or die;
print FH scalar localtime, "\n";
close FH;
} else {
unlink "ok.ts";
}
} else {
warn "you are not 'Belle de jour'";
}
} else {
warn "you are not Catherine Deneuve";
}
} else {
warn "incorrect env";
}
WriteMakefile(
NAME => 'CPAN::Test::Dummy::Perl5::Make::Expect',
VERSION_FROM => _f('./lib/CPAN/Test/Dummy/Perl5/Make/Expect.pm'),
ABSTRACT => 'CPAN Test Dummy for CPAN.pm',
($ExtUtils::MakeMaker::VERSION >= 6.31 ?
(LICENSE => "perl") : (),
),
'dist' => {
DIST_DEFAULT => 'Makefile all tardist',
},
clean => {
FILES => "ok.ts",
},
PL_FILES => {},
dist => {
DIST_DEFAULT => (
'Makefile verify-MakeMaker-6.31 verify-no-subdir all tardist'
),
},
);
sub MY::postamble {
return q{
verify-MakeMaker-6.31:
@$(PERL) -MExtUtils::MakeMaker -e 'my $$v = eval $$ExtUtils::MakeMaker::VERSION; die "Your MM is old, do not use it for a distro" unless $$v >= 6.31'
verify-no-subdir:
@$(PERL) -e 'my$$s=join",",grep{!/^(lib|t)\z/&&-d($$_)}glob"*";die"unexpected dir:$$s"if$$s'
}
}