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 / Inline.pm < prev    next >
Encoding:
Perl POD Document  |  2003-12-17  |  1.2 KB  |  47 lines
  1. # $File: //depot/cpan/Module-Install/lib/Module/Install/Inline.pm $ $Author: autrijus $
  2. # $Revision: #6 $ $Change: 1781 $ $DateTime: 2003/10/22 17:14:03 $ vim: expandtab shiftwidth=4
  3.  
  4. package Module::Install::Inline;
  5. use Module::Install::Base; @ISA = qw(Module::Install::Base);
  6.  
  7. $VERSION = '0.01';
  8.  
  9. use strict;
  10.  
  11. sub Inline { $_[0] }
  12.  
  13. sub write {
  14.     my $self = shift;
  15.     my $name = $self->name
  16.         or die "Please set name() before calling &Inline->write\n";
  17.     my $object = (split(/::/, $name))[-1] or return;
  18.     my $version = $self->version
  19.         or die "Please set version() or version_from() before calling &Inline->write\n";
  20.  
  21.     $version =~ /^\d\.\d\d$/ or die << "END";
  22. Invalid version '$version' for $name.
  23. Must be of the form '#.##'. (For instance '1.23')
  24. END
  25.  
  26.     $self->clean_files('_Inline', "$object.inl");
  27.     $self->requires('Inline' => 0.44); # XXX: check for existing? yagni?
  28.  
  29.     my $class = ref($self);
  30.     my $prefix = $self->_top->{prefix};
  31.     $self->postamble(<<"MAKEFILE");
  32. # --- $class section:
  33.  
  34. .SUFFIXES: .pm .inl
  35.  
  36. .pm.inl:
  37. \t\$(PERL) -I$prefix -Mblib -MInline=NOISY,_INSTALL_ -M$name -e1 $version \$(INST_ARCHLIB)
  38.  
  39. pure_all :: $object.inl
  40.  
  41. MAKEFILE
  42.  
  43.     $self->Makefile->write;
  44. }
  45.  
  46. 1;
  47.