home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Makefile.pm < prev    next >
Encoding:
Perl POD Document  |  2003-12-17  |  1.2 KB  |  51 lines
  1. # $File: //depot/cpan/Module-Install/lib/Module/Install/Admin/Makefile.pm $ $Author: autrijus $
  2. # $Revision: #9 $ $Change: 1646 $ $DateTime: 2003/07/16 01:05:17 $ vim: expandtab shiftwidth=4
  3.  
  4. package Module::Install::Admin::Makefile;
  5. use Module::Install::Base; @ISA = qw(Module::Install::Base);
  6.  
  7. $VERSION = '0.01';
  8.  
  9. use strict 'vars';
  10. use vars '$VERSION';
  11.  
  12. use ExtUtils::MakeMaker ();
  13.  
  14. sub postamble {
  15.     my ($self, $text) = @_;
  16.     my $class = ref($self);
  17.     my $top_class = ref($self->_top);
  18.     my $admin_class = join('::', @{$self->_top}{qw(name dispatch)});
  19.  
  20.     $self->{postamble} ||= << "END";
  21. # --- $class section:
  22.  
  23. realclean purge ::
  24. \t\$(RM_F) \$(DISTVNAME).tar\$(SUFFIX)
  25. \t\$(RM_RF) inc MANIFEST.bak _build
  26. \t\$(PERL) -I. -M$admin_class -e \"remove_meta()\"
  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
  40.     $self->{postamble} .= $text if defined $text;
  41.     $self->{postamble};
  42. }
  43.  
  44. sub preop {
  45.     my $self = shift;
  46.     my $admin_class = join('::', @{$self->_top}{qw(name dispatch)});
  47.     +{ PREOP => qq{\$(PERL) -I. -M$admin_class -e "dist_preop(q(\$(DISTVNAME)))"} }
  48. }
  49.  
  50. 1;
  51.