| line |
true |
false |
branch |
|
60
|
15 |
1 |
if exists $$self{'OBJECTS'}{$object->destination} |
|
103
|
0 |
0 |
if ($_->prototype eq 'f') { } |
|
|
0 |
0 |
elsif ($_->prototype eq 'd') { } |
|
104
|
0 |
0 |
unless open IN, $_->source |
|
106
|
0 |
0 |
unless open OUT, '>./' . $_->destination |
|
109
|
0 |
0 |
if $$_{'length'} > $maxlength |
|
154
|
0 |
0 |
defined $finfo->part ? : |
|
|
0 |
0 |
defined $finfo->class ? : |
|
|
0 |
0 |
$finfo->prototype eq 'f' ? : |
|
179
|
1 |
0 |
if $self->architecture |
|
184
|
1 |
0 |
if $self->category |
|
186
|
1 |
0 |
if $self->vendor |
|
189
|
1 |
0 |
if $self->email_contact |
|
206
|
6 |
1 |
unless $name |
|
210
|
1 |
0 |
if (/^(?![a-zA-Z])/) |
|
215
|
0 |
1 |
if (/[^a-zA-Z0-9+-]!/) |
|
220
|
0 |
1 |
if (length $_ > 256) |
|
225
|
0 |
1 |
if (/^install$|^new$|^all$/) |
|
247
|
3 |
0 |
unless $$self{'PROGRAM_NAME'} |
|
250
|
0 |
0 |
if (length $_ > 256) |
|
288
|
1 |
4 |
if $name |
|
315
|
2 |
2 |
if ($version) |
|
316
|
0 |
2 |
if (substr($version, 0, 1) eq '(') |
|
321
|
0 |
2 |
if (length $version > 256) |
|
346
|
2 |
1 |
unless $value |
|
349
|
1 |
0 |
if (substr($_, 0, 1) ne '/') |
|
377
|
0 |
0 |
if $value |
|
399
|
0 |
0 |
if $value |
|
421
|
0 |
0 |
if $value |