| 11 | 11 |
for my $phase (keys %$prereqs) {
|
| 12 | 12 |
for my $type (keys %{ $prereqs->{$phase} }) {
|
| 13 | 13 |
while (my($module, $requirement) = each %{ $prereqs->{$phase}{$type} }) {
|
| 14 | |
$self->add_prereq(
|
|
14 |
$self->add(
|
| 15 | 15 |
phase => $phase,
|
| 16 | 16 |
type => $type,
|
| 17 | 17 |
module => $module,
|
|
| 27 | 27 |
sub new {
|
| 28 | 28 |
my $class = shift;
|
| 29 | 29 |
bless {
|
| 30 | |
prereqs => [],
|
|
30 |
prereqs => {},
|
| 31 | 31 |
features => {},
|
| 32 | 32 |
}, $class;
|
| 33 | 33 |
}
|
|
| 37 | 37 |
$self->{features}{$identifier} = { description => $description };
|
| 38 | 38 |
}
|
| 39 | 39 |
|
| 40 | |
sub add_prereq {
|
|
40 |
sub add {
|
| 41 | 41 |
my($self, %args) = @_;
|
| 42 | |
$self->add( Module::CPANfile::Prereq->new(%args) );
|
| 43 | |
}
|
| 44 | 42 |
|
| 45 | |
sub add {
|
| 46 | |
my($self, $prereq) = @_;
|
| 47 | |
push @{$self->{prereqs}}, $prereq;
|
|
43 |
my $feature = $args{feature} || '';
|
|
44 |
push @{$self->{prereqs}{$feature}},
|
|
45 |
Module::CPANfile::Prereq->new(%args);
|
| 48 | 46 |
}
|
| 49 | 47 |
|
| 50 | 48 |
sub as_cpan_meta {
|
|
| 53 | 51 |
}
|
| 54 | 52 |
|
| 55 | 53 |
sub build_cpan_meta {
|
| 56 | |
my($self, $identifier) = @_;
|
| 57 | |
|
| 58 | |
my $prereq_spec = {};
|
| 59 | |
$self->prereq_each($identifier, sub {
|
| 60 | |
my $prereq = shift;
|
| 61 | |
$prereq_spec->{$prereq->phase}{$prereq->type}{$prereq->module} = $prereq->requirement->version;
|
| 62 | |
});
|
| 63 | |
|
| 64 | |
CPAN::Meta::Prereqs->new($prereq_spec);
|
|
54 |
my($self, $feature) = @_;
|
|
55 |
CPAN::Meta::Prereqs->new($self->specs($feature));
|
| 65 | 56 |
}
|
| 66 | 57 |
|
| 67 | |
sub prereq_each {
|
| 68 | |
my($self, $identifier, $code) = @_;
|
|
58 |
sub specs {
|
|
59 |
my($self, $feature) = @_;
|
| 69 | 60 |
|
| 70 | |
for my $prereq (@{$self->{prereqs}}) {
|
| 71 | |
next unless $prereq->match_feature($identifier);
|
| 72 | |
$code->($prereq);
|
|
61 |
$feature = ''
|
|
62 |
unless defined $feature;
|
|
63 |
|
|
64 |
my $prereqs = $self->{prereqs}{$feature} || [];
|
|
65 |
my $specs = {};
|
|
66 |
|
|
67 |
for my $prereq (@$prereqs) {
|
|
68 |
$specs->{$prereq->phase}{$prereq->type}{$prereq->module} =
|
|
69 |
$prereq->requirement->version;
|
| 73 | 70 |
}
|
|
71 |
|
|
72 |
return $specs;
|
| 74 | 73 |
}
|
| 75 | 74 |
|
| 76 | 75 |
sub merged_requirements {
|
|
| 87 | 86 |
sub find {
|
| 88 | 87 |
my($self, $module) = @_;
|
| 89 | 88 |
|
| 90 | |
for my $prereq (@{$self->{prereqs}}) {
|
| 91 | |
return $prereq if $prereq->module eq $module;
|
|
89 |
for my $feature ('', keys %{$self->{features}}) {
|
|
90 |
for my $prereq (@{$self->{prereqs}{$feature}}) {
|
|
91 |
return $prereq if $prereq->module eq $module;
|
|
92 |
}
|
| 92 | 93 |
}
|
| 93 | 94 |
|
| 94 | 95 |
return;
|