local-lib5/lib/perl5/Module/Install/Admin/Makefile.pm

   1 package Module::Install::Admin::Makefile;
   2
   3 use strict 'vars';
   4 use Module::Install::Base;
   5 use ExtUtils::MakeMaker ();
   6
   7 use vars qw{$VERSION @ISA};
   8 BEGIN {
   9         $VERSION = '0.91';;
  10         @ISA     = qw{Module::Install::Base};
  11 }
  12
  13 sub postamble {
  14     my ($self, $text) = @_;
  15     my $class       = ref($self);
  16     my $top_class   = ref($self->_top);
  17     my $admin_class = join('::', @{$self->_top}{qw(name dispatch)});
  18
  19     $self->{postamble} ||= << "END_MAKEFILE";
  20 # --- $class section:
  21
  22 realclean purge ::
  23 \t\$(RM_F) \$(DISTVNAME).tar\$(SUFFIX)
  24 \t\$(RM_F) MANIFEST.bak _build
  25 \t\$(PERL) "-Ilib" "-M$admin_class" -e "remove_meta()"
  26 \t\$(RM_RF) inc
  27
  28 reset :: purge
  29
  30 upload :: test dist
  31 \tcpan-upload -verbose \$(DISTVNAME).tar\$(SUFFIX)
  32
  33 grok ::
  34 \tperldoc $top_class
  35
  36 distsign ::
  37 \tcpansign -s
  38
  39 END_MAKEFILE
  40
  41     $self->{postamble} .= $text if defined $text;
  42     return $self->{postamble};
  43 }
  44
  45 sub preop {
  46     my $self = shift;
  47     my ($user_preop) = @_;
  48     my $admin_class = join('::', @{$self->_top}{qw(name dispatch)});
  49     $user_preop = qq{\$(PERL) -I. "-M$admin_class" -e "dist_preop(q(\$(DISTVNAME)))"} unless $user_preop;
  50     return { PREOP => $user_preop };
  51 }
  52
  53 1;