1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
package Carton::Dist;
use strict;
use Class::Tiny {
name => undef,
pathname => undef,
provides => sub { +{} },
requirements => sub { $_[0]->_build_requirements },
};
use CPAN::Meta;
sub add_string_requirement { shift->requirements->add_string_requirement(@_) }
sub required_modules { shift->requirements->required_modules(@_) }
sub requirements_for_module { shift->requirements->requirements_for_module(@_) }
sub is_core { 0 }
sub distfile {
my $self = shift;
$self->pathname;
}
sub _build_requirements {
CPAN::Meta::Requirements->new;
}
sub provides_module {
my($self, $module) = @_;
exists $self->provides->{$module};
}
sub version_for {
my($self, $module) = @_;
$self->provides->{$module}{version};
}
1;
|
