git.maemo.org Git - pkg-perl/blob - deb-src/libspiffy-perl/libspiffy-perl-0.30/inc/Module/Install/Makefile.pm

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