blib/lib/PAUSE/Packages/Release.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 10 | 10 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 4 | 4 | 100.0 |
pod | n/a | ||
total | 14 | 14 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package PAUSE::Packages::Release; | ||||||
2 | $PAUSE::Packages::Release::VERSION = '0.17'; | ||||||
3 | 5 | 5 | 70 | use 5.8.1; | |||
5 | 18 | ||||||
4 | 5 | 5 | 32 | use Moo 1.006; | |||
5 | 90 | ||||||
5 | 39 | ||||||
5 | 5 | 5 | 1886 | use CPAN::DistnameInfo; | |||
5 | 17 | ||||||
5 | 604 | ||||||
6 | |||||||
7 | has 'modules' => (is => 'ro'); | ||||||
8 | has 'path' => (is => 'ro'); | ||||||
9 | has 'distinfo' => (is => 'lazy'); | ||||||
10 | |||||||
11 | sub _build_distinfo | ||||||
12 | { | ||||||
13 | 3 | 3 | 1621 | my $self = shift; | |||
14 | |||||||
15 | 3 | 17 | return CPAN::DistnameInfo->new($self->path); | ||||
16 | } | ||||||
17 | |||||||
18 | 1; |