Lines 21-31
sub new {
Link Here
|
21 |
|
21 |
|
22 |
sub prereqs { |
22 |
sub prereqs { |
23 |
my $self = shift; |
23 |
my $self = shift; |
|
|
24 |
my @phases; |
24 |
|
25 |
|
25 |
unless (defined $self->{prereqs}) { |
26 |
unless (defined $self->{prereqs}) { |
26 |
my $filename = $INC{'C4/Installer/PerlModules.pm'}; |
27 |
my $filename = $INC{'C4/Installer/PerlModules.pm'}; |
27 |
my $path = dirname(dirname(dirname($filename))); |
28 |
my $path = dirname(dirname(dirname($filename))); |
28 |
$self->{prereqs} = Module::CPANfile->load("$path/cpanfile")->prereqs; |
29 |
$self->{prereqs} = Module::CPANfile->load("$path/cpanfile")->prereqs; |
|
|
30 |
@phases = $self->{prereqs}->phases; |
29 |
} |
31 |
} |
30 |
|
32 |
|
31 |
return $self->{prereqs}; |
33 |
return $self->{prereqs}; |
Lines 58-63
sub versions_info {
Link Here
|
58 |
my $module_infos = { |
60 |
my $module_infos = { |
59 |
cur_ver => 0, |
61 |
cur_ver => 0, |
60 |
required => $type eq 'requires', |
62 |
required => $type eq 'requires', |
|
|
63 |
phase => $phase |
61 |
}; |
64 |
}; |
62 |
|
65 |
|
63 |
my $vers = $reqs->structured_requirements_for_module($module); |
66 |
my $vers = $reqs->structured_requirements_for_module($module); |