← Back to branch summary

~ubuntu-branches/ubuntu/dapper/libmodule-install-perl/dapper

« back to all changes in this revision

Viewing changes to lib/Module/Install/Inline.pm

  • Committer: Bazaar Package Importer
  • Author(s): Bastian Blank
  • Date: 2004-04-03 23:07:38 UTC
  • Revision ID: james.westby@ubuntu.com-20040403230738-z8wkxryscyv90fjl
Tags: upstream-0.33
Import upstream version 0.33

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Module/Install/Inline.pm
 
1
# $File: //depot/cpan/Module-Install/lib/Module/Install/Inline.pm $ $Author: autrijus $
 
2
# $Revision: #7 $ $Change: 1885 $ $DateTime: 2004/03/11 05:55:27 $ 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->module_name || $self->name
 
16
        or die "Please set name() before calling &Inline->write\n";
 
17
    $name =~ s/-/::/g;
 
18
    my $object = (split(/::/, $name))[-1] or return;
 
19
    my $version = $self->version
 
20
        or die "Please set version() or version_from() before calling &Inline->write\n";
 
21
 
 
22
    $version =~ /^\d\.\d\d$/ or die << "END";
 
23
Invalid version '$version' for $name.
 
24
Must be of the form '#.##'. (For instance '1.23')
 
25
END
 
26
 
 
27
    $self->clean_files('_Inline', "$object.inl");
 
28
    $self->build_requires('Inline' => 0.44); # XXX: check for existing? yagni?
 
29
 
 
30
    my $class = ref($self);
 
31
    my $prefix = $self->_top->{prefix};
 
32
    $self->postamble(<<"MAKEFILE");
 
33
# --- $class section:
 
34
 
 
35
.SUFFIXES: .pm .inl
 
36
 
 
37
.pm.inl:
 
38
\t\$(PERL) -I$prefix -Mblib -MInline=NOISY,_INSTALL_ -M$name -e1 $version \$(INST_ARCHLIB)
 
39
 
 
40
pure_all :: $object.inl
 
41
 
 
42
MAKEFILE
 
43
 
 
44
    $self->Makefile->write;
 
45
}
 
46
 
 
47
1;