| line |
true |
false |
branch |
|
52
|
0 |
7 |
if $USE_COLOR |
|
323
|
0 |
7 |
unless &GetOptions(\%OPT, @OPT) |
|
325
|
0 |
7 |
if ($OPT{'trace'}) { } |
|
|
0 |
7 |
elsif ($OPT{'debug'}) { } |
|
|
0 |
7 |
elsif ($OPT{'verbose'}) { } |
|
|
0 |
7 |
elsif ($OPT{'quiet'}) { } |
|
353
|
2 |
5 |
if $OPT{'help'} |
|
354
|
0 |
5 |
if ($OPT{'version'}) |
|
357
|
0 |
5 |
if ($OPT{'shortname-scheme'}) { } |
|
|
2 |
3 |
elsif ($OPT{'deb-machine'} or $OPT{'deb-fmt'} or $OPT{'list-licenses'} or $OPT{'list-naming-schemes'}) { } |
|
369
|
2 |
3 |
if @schemes |
|
373
|
2 |
3 |
if (@schemes) { } |
|
380
|
2 |
3 |
if ($OPT{'list-licenses'}) |
|
385
|
0 |
3 |
if ($OPT{'list-naming-schemes'}) |
|
390
|
0 |
3 |
if ($OPT{'text'}) |
|
393
|
0 |
3 |
if ($OPT{'noconf'}) |
|
396
|
0 |
3 |
if ($OPT{'noverbose'}) |
|
400
|
0 |
3 |
unless @ARGV |
|
468
|
3 |
0 |
if (not $check_regex or $check_regex eq 'common source files') { } |
|
476
|
3 |
0 |
if (not $ignore_regex or $ignore_regex eq 'some backup and VCS files') { } |
|
495
|
3 |
0 |
unless $OPT{'recursive'} |
|
499
|
0 |
3 |
if (@paths >> 1) |
|
500
|
0 |
0 |
if ($main::log->is_debug or $OPT{'skipped'} and $main::log->is_warn) |
|
503
|
0 |
0 |
if ($OPT{'skipped'}) { } |
|
521
|
0 |
3 |
if ($OPT{'deb-machine'}) { } |
|
|
3 |
0 |
elsif ($OPT{'machine'}) { } |
|
528
|
0 |
0 |
unless $owneryear |
|
529
|
0 |
0 |
if $owner |
|
537
|
0 |
0 |
if $OPT{'merge-licenses'} and $owneryears_seem_correct |
|
546
|
1 |
2 |
if $OPT{'copyright'} |
|
551
|
0 |
0 |
unless @copyrights |
|
554
|
0 |
0 |
if @copyrights and $OPT{'copyright'} |
|
555
|
0 |
0 |
if $OPT{'copyright'} |
|
559
|
0 |
3 |
if ($OPT{'deb-machine'}) |
|
570
|
0 |
0 |
unless @{$patternfiles{$b};} <=> @{$patternfiles{$a};} |
|
578
|
0 |
0 |
unless @ownerlines_unique |