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
|
package Frontend;
use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
use ExtUtils::MakeMaker ();
BEGIN {
$INC{"CPAN.pm"} = 1; #fake load
$INC{"Test/Reporter/Transport/Metabase.pm"} = 1; #fake load
$CPAN::VERSION = 999;
$Test::Reporter::Transport::Metabase::VERSION = 999;
$CPAN::Reporter::VERSION ||= 999;
$CPAN::Reporter::History::VERSION ||= 999;
}
package CPAN::Shell;
sub myprint {
shift;
print @_;
}
sub mywarn {
shift;
print @_;
}
sub colorable_makemaker_prompt {
goto \&ExtUtils::MakeMaker::prompt;
}
package CPAN;
$CPAN::Frontend = $CPAN::Frontend = "CPAN::Shell";
1;
|
