Commit | Line | Data |
ecac864a |
1 | #line 1 "inc/Module/Install/Build.pm - /Library/Perl/5.8.6/Module/Install/Build.pm" |
0d5e38d1 |
2 | package Module::Install::Build; |
ecac864a |
3 | |
4 | use Module::Install::Base; |
5 | @ISA = qw(Module::Install::Base); |
6 | |
7 | $VERSION = '0.57'; |
8 | |
0d5e38d1 |
9 | use strict; |
0d5e38d1 |
10 | |
11 | sub Build { $_[0] } |
12 | |
13 | sub write { |
14 | my $self = shift; |
15 | die "Build->write() takes no arguments\n" if @_; |
16 | |
17 | my %args; |
18 | my $build; |
19 | |
ecac864a |
20 | $args{dist_name} = $self->name || $self->determine_NAME($self->{args}); |
21 | $args{license} = $self->license; |
22 | $args{test_files} = $self->tests; |
23 | $args{dist_version} = $self->version || $self->determine_VERSION($self->{args}); |
0d5e38d1 |
24 | $args{dist_abstract} = $self->abstract; |
ecac864a |
25 | $args{dist_author} = $self->author; |
26 | $args{sign} = $self->sign; |
27 | $args{no_index} = $self->no_index; |
0d5e38d1 |
28 | |
29 | foreach my $key (qw(build_requires requires recommends conflicts)) { |
30 | my $val = eval "\$self->$key" or next; |
31 | $args{$key} = { map @$_, @$val }; |
32 | } |
33 | |
34 | %args = map {($_, $args{$_})} grep {defined($args{$_})} keys %args; |
35 | |
36 | require Module::Build; |
37 | $build = Module::Build->new(%args); |
38 | $build->add_to_cleanup(split /\s+/, $self->clean_files); |
39 | $build->create_build_script; |
40 | } |
41 | |
42 | sub ACTION_reset { |
43 | my ($self) = @_; |
44 | die "XXX - Can't get this working yet"; |
45 | require File::Path; |
46 | warn "Removing inc\n"; |
47 | rmpath('inc'); |
48 | } |
49 | |
50 | sub ACTION_dist { |
51 | my ($self) = @_; |
52 | die "XXX - Can't get this working yet"; |
53 | } |
54 | |
55 | # <ingy> DrMath: is there an OO way to add actions to Module::Build?? |
56 | # <DrMath> ingy: yeah |
57 | # <DrMath> ingy: package MyBuilder; use w(Module::Build; @ISA = qw(w(Module::Build); sub ACTION_ingy |
58 | # {...} |
59 | # <DrMath> ingy: then my $build = new MyBuilder( ...parameters... ); |
60 | # $build->write_build_script; |
61 | |
0d5e38d1 |
62 | 1; |
63 | |
64 | __END__ |
65 | |
ecac864a |
66 | #line 177 |