inc/Module/Install/Makefile.pm

   1 #line 1 "inc/Module/Install/Makefile.pm - /Library/Perl/5.8.1/Module/Install/Makefile.pm"
   2 # $File: //depot/cpan/Module-Install/lib/Module/Install/Makefile.pm $ $Author: autrijus $
   3 # $Revision: #53 $ $Change: 1847 $ $DateTime: 2003/12/31 23:14:54 $ vim: expandtab shiftwidth=4
   4
   5 package Module::Install::Makefile;
   6 use Module::Install::Base; @ISA = qw(Module::Install::Base);
   7
   8 $VERSION = '0.01';
   9
  10 use strict 'vars';
  11 use vars '$VERSION';
  12
  13 use ExtUtils::MakeMaker ();
  14
  15 sub Makefile { $_[0] }
  16
  17 sub prompt {
  18     shift;
  19     goto &ExtUtils::MakeMaker::prompt;
  20 }
  21
  22 sub makemaker_args {
  23     my $self = shift;
  24     my $args = ($self->{makemaker_args} ||= {});
  25     %$args = ( %$args, @_ ) if @_;
  26     $args;
  27 }
  28
  29 sub clean_files {
  30     my $self = shift;
  31     my $clean = $self->makemaker_args->{clean} ||= {};
  32     %$clean = (
  33         %$clean,
  34         FILES => join(" ", grep length, $clean->{FILES}, @_),
  35     );
  36 }
  37
  38 sub libs {
  39     my $self = shift;
  40     my $libs = ref $_[0] ? shift : [shift];
  41     $self->makemaker_args( LIBS => $libs );
  42 }
  43
  44 sub inc {
  45     my $self = shift;
  46     $self->makemaker_args( INC => shift );
  47 }
  48
  49 sub write {
  50     my $self = shift;
  51     die "&Makefile->write() takes no arguments\n" if @_;
  52
  53     my $args = $self->makemaker_args;
  54
  55     $args->{DISTNAME} = $self->name;
  56     $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($args);
  57     $args->{VERSION} = $self->version || $self->determine_VERSION($args);
  58     $args->{NAME} =~ s/-/::/g;
  59
  60     if ($] >= 5.005) {
  61         $args->{ABSTRACT} = $self->abstract;
  62         $args->{AUTHOR} = $self->author;
  63     }
  64     if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
  65         $args->{NO_META} = 1;
  66     }
  67     if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 ) {
  68         $args->{SIGN} = 1 if $self->sign;
  69     }
  70     delete $args->{SIGN} unless $self->is_admin;
  71
  72     # merge both kinds of requires into prereq_pm
  73     my $prereq = ($args->{PREREQ_PM} ||= {});
  74     %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
  75                  ($self->build_requires, $self->requires) );
  76
  77     # merge both kinds of requires into prereq_pm
  78     my $dir = ($args->{DIR} ||= []);
  79     if ($self->bundles) {
  80         push @$dir, map "$_->[1]", @{$self->bundles};
  81         delete $prereq->{$_->[0]} for @{$self->bundles};
  82     }
  83
  84     if (my $perl_version = $self->perl_version) {
  85         eval "use $perl_version; 1"
  86             or die "ERROR: perl: Version $] is installed, ".
  87                    "but we need version >= $perl_version";
  88     }
  89
  90     my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;
  91
  92     if ($self->admin->preop) {
  93         $args{dist} = $self->admin->preop;
  94     }
  95
  96     ExtUtils::MakeMaker::WriteMakefile(%args);
  97
  98     $self->fix_up_makefile();
  99 }
 100
 101 sub fix_up_makefile {
 102     my $self = shift;
 103     my $top_class = ref($self->_top) || '';
 104     my $top_version = $self->_top->VERSION || '';
 105
 106     my $preamble = $self->preamble
 107        ? "# Preamble by $top_class $top_version\n" . $self->preamble
 108        : '';
 109     my $postamble = "# Postamble by $top_class $top_version\n" .
 110                     ($self->postamble || '');
 111
 112     open MAKEFILE, '< Makefile' or die $!;
 113     my $makefile = do { local $/; <MAKEFILE> };
 114     close MAKEFILE;
 115
 116     $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
 117     $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
 118     $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
 119
 120     $makefile =~ s/^(FULLPERL = .*)/$1 -Iinc/m;
 121     $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;
 122
 123     open MAKEFILE, '> Makefile' or die $!;
 124     print MAKEFILE "$preamble$makefile$postamble";
 125     close MAKEFILE;
 126 }
 127
 128 sub preamble {
 129     my ($self, $text) = @_;
 130     $self->{preamble} = $text . $self->{preamble} if defined $text;
 131     $self->{preamble};
 132 }
 133
 134 sub postamble {
 135     my ($self, $text) = @_;
 136
 137     $self->{postamble} ||= $self->admin->postamble;
 138     $self->{postamble} .= $text if defined $text;
 139     $self->{postamble}
 140 }
 141
 142 1;
 143
 144 __END__
 145
 146 #line 276