| line |
l |
!l&&r |
!l&&!r |
condition |
|
50
|
231 |
47 |
0 |
$$self{'dist'} ||= do {
my $dist;
if (my $struct = $$self{'struct'}) {
require Dist::Metadata::Struct;
$dist = 'Dist::Metadata::Struct'->new(%$struct);
}
elsif (my $dir = $$self{'dir'}) {
require Dist::Metadata::Dir;
$dist = 'Dist::Metadata::Dir'->new('dir', $dir);
}
elsif (my $file = $$self{'file'}) {
require Dist::Metadata::Archive;
$dist = 'Dist::Metadata::Archive'->new('file', $file);
}
else {
croak('No dist format parameters found!');
} ;
$dist
} |
|
78
|
49 |
0 |
0 |
ref $self || $self |
|
135
|
34 |
5 |
0 |
$meta ||= $self->meta_from_struct($self->determine_metadata) |
|
224
|
108 |
38 |
0 |
$$self{'meta'} ||= $self->load_meta |
|
245
|
1 |
12 |
0 |
$$opts{'provides'} || $self->provides |
|
257
|
0 |
22 |
0 |
$$digest_cache{$$data{'file'}}{$checksum} ||= $self->dist->file_checksum($$data{'file'}, $checksum) |