line |
true |
false |
branch |
210
|
5 |
1 |
unless $self->show_config
|
215
|
3 |
4 |
if (defined $Config::Config{$key} and $Config::Config{$key} ne '')
|
224
|
5 |
1 |
unless $self->show_uname
|
227
|
0 |
1 |
unless (can_run($self->uname_call))
|
231
|
0 |
1 |
unless open my $fh, '-|', $self->uname_call, $self->_all_uname_args
|
236
|
0 |
1 |
unless close $fh
|
251
|
1 |
0 |
if defined $_
|
268
|
6 |
0 |
unless 'only' eq ($self->use_external_file || '')
|
279
|
0 |
6 |
unless (%{$prereqs;})
|
287
|
0 |
6 |
unless defined $phase_data
|
291
|
0 |
6 |
unless defined $type_data
|
306
|
0 |
1261 |
unless defined $module
|
308
|
1 |
1260 |
if 'perl' eq $module
|
310
|
1 |
1259 |
unless &is_module_name($module)
|
317
|
0 |
12443 |
if ref $incdir
|
319
|
11975 |
468 |
unless -e $fullpath
|
320
|
0 |
468 |
if -d $fullpath
|
325
|
791 |
468 |
unless defined $path
|
329
|
0 |
468 |
unless defined $mm
|
332
|
80 |
388 |
unless $v
|
357
|
12 |
2 |
if defined $result->[0]
|
358
|
1 |
13 |
if defined $result->[1]
|
362
|
1 |
1 |
if exists $modtable{$badmodule}
|
363
|
0 |
2 |
if exists $failures{$badmodule}
|
368
|
0 |
6 |
if ($] < 5.01) { }
|
383
|
1 |
5 |
if keys %failures
|
395
|
6 |
0 |
unless $self->use_external_file
|
397
|
0 |
0 |
$self->external_file_name =~ /[.]ya?ml\z/imsx ? :
|
|
0 |
0 |
$self->external_file_name =~ /[.]json\z/imsx ? :
|
404
|
0 |
0 |
if ('JSON' eq $type)
|
417
|
0 |
0 |
if ('YAML' eq $type)
|
439
|
0 |
6 |
if 'only' eq ($self->use_external_file || '')
|
442
|
5 |
2 |
if ('META.json' eq $file->name)
|
458
|
1 |
1 |
if ('META.yml' eq $file->name)
|
474
|
0 |
6 |
unless (keys %{$munged;})
|