| line |
l |
!l&&r |
!l&&!r |
condition |
|
45
|
244 |
48 |
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
} |
|
73
|
50 |
0 |
0 |
ref $self || $self |
|
136
|
35 |
5 |
0 |
$meta ||= $self->meta_from_struct($self->determine_metadata) |
|
225
|
108 |
39 |
0 |
$self->{'meta'} ||= $self->load_meta |
|
246
|
1 |
12 |
0 |
$opts->{'provides'} || $self->provides |
|
260
|
0 |
22 |
0 |
$$digest_cache{$data->{'file'}}{$checksum} ||= $self->dist->file_checksum($data->{'file'}, $checksum) |