line |
true |
false |
branch |
65
|
0 |
7 |
unless open my $fh, '<', $file |
72
|
13 |
76 |
if /^\s*#/ |
73
|
13 |
63 |
if /^\s*$/ |
76
|
0 |
63 |
unless /^[\s]*(?[^\s:=]+)\s*(?[:=])\s*(?.*?)\s*(#.*)?$/ |
79
|
28 |
35 |
if ($+{'op'} eq ':') { } |
87
|
0 |
7 |
unless close $fh |
155
|
0 |
129 |
unless defined $name |
187
|
0 |
50 |
unless defined $name |
249
|
0 |
9 |
defined $file ? : |
|
0 |
9 |
unless my $fh = defined $file ? 'IO::File'->new($file, 'w') : 'IO::Handle'->new_from_fd(fileno STDOUT, 'w') |
255
|
6 |
3 |
if ($options{'comments'} and @{$options{'comments'};}) |
262
|
7 |
2 |
if ($options{'write'} eq 'req') { } |
264
|
7 |
0 |
if (defined $options{'vars'}) |
288
|
0 |
4 |
$_[0]->isa('App::mkpkgconfig::PkgConfig::Entry::Keyword') ? : |
325
|
0 |
85 |
if $validated{$name} |
327
|
3 |
82 |
if ($track->exists($name)) |
353
|
26 |
34 |
if $entry->isa('App::mkpkgconfig::PkgConfig::Entry::Keyword') |
372
|
0 |
10 |
unless @needed |
386
|
0 |
10 |
unless my $deps = 'Algorithm::Dependency::Ordered'->new('source', 'Algorithm::Dependency::Source::HoA'->new(\%dephash)) |
393
|
0 |
10 |
unless (defined $ordered) |
398
|
0 |
10 |
if (length(my $err = $@)) |
409
|
10 |
0 |
if (@nodeps) |