| line |
true |
false |
branch |
|
160
|
0 |
0 |
if ($perl_version =~ s/\.dev\d*$//)
|
|
227
|
3 |
3 |
if (defined $self->base and length $self->base > 0) { }
|
|
309
|
2 |
4 |
if (not defined $file && length $file) { }
|
|
|
1 |
3 |
elsif (not -f $file) { }
|
|
341
|
2 |
7 |
if (not defined $file && length $file) { }
|
|
|
1 |
6 |
elsif (not -f $file) { }
|
|
362
|
0 |
6 |
unless my $in = 'IO::File'->new($file, 'r')
|
|
373
|
143 |
30 |
if ($line =~ /^([^=]+)=(.+)$/)
|
|
375
|
53 |
90 |
if (exists $translator{$key}) { }
|
|
|
6 |
84 |
elsif ($key eq 'PLATFORMS') { }
|
|
|
6 |
78 |
elsif ($key eq 'NAME') { }
|
|
384
|
6 |
0 |
if ($value =~ /^(.+?)-(.+?)$/) { }
|
|
391
|
1 |
5 |
if ($compname ne '$(COMP)')
|
|
402
|
3 |
3 |
if (not ref $proto) { }
|
|
|
1 |
2 |
elsif (defined &Scalar::Util::blessed($proto) and $proto->isa('LCFG::Build::PkgSpec')) { }
|
|
428
|
2 |
1 |
unless (defined $file and length $file)
|
|
463
|
1 |
5 |
if (not defined $release) { }
|
|
507
|
3 |
8 |
if ($uptype eq 'major') { }
|
|
|
3 |
5 |
elsif ($uptype eq 'minor') { }
|
|
|
4 |
1 |
elsif ($uptype eq 'micro') { }
|
|
527
|
9 |
1 |
if (defined $rel) { }
|
|
528
|
9 |
0 |
if ($rel =~ /^\d+(.*)$/) { }
|