| line |
true |
false |
branch |
|
158
|
0 |
0 |
if ($perl_version =~ s/_dev$//)
|
|
218
|
3 |
2 |
if (defined $self->base and length $self->base > 0) { }
|
|
249
|
2 |
4 |
if (not defined $file && length $file) { }
|
|
|
1 |
3 |
elsif (not -f $file) { }
|
|
281
|
2 |
7 |
if (not defined $file && length $file) { }
|
|
|
1 |
6 |
elsif (not -f $file) { }
|
|
302
|
0 |
6 |
unless my $in = 'IO::File'->new($file, 'r')
|
|
313
|
143 |
30 |
if ($line =~ /^([^=]+)=(.+)$/)
|
|
315
|
53 |
90 |
if (exists $translator{$key}) { }
|
|
|
6 |
84 |
elsif ($key eq 'PLATFORMS') { }
|
|
|
6 |
78 |
elsif ($key eq 'NAME') { }
|
|
324
|
6 |
0 |
if ($value =~ /^(.+?)-(.+?)$/) { }
|
|
331
|
1 |
5 |
if ($compname ne '$(COMP)')
|
|
342
|
3 |
3 |
if (not ref $proto) { }
|
|
|
1 |
2 |
elsif (defined &Scalar::Util::blessed($proto) and $proto->isa('LCFG::Build::PkgSpec')) { }
|
|
368
|
2 |
1 |
unless (defined $file and length $file)
|
|
387
|
1 |
1 |
unless ($version =~ /_dev$/)
|
|
402
|
1 |
5 |
if (not defined $release) { }
|
|
447
|
3 |
8 |
if ($uptype eq 'major') { }
|
|
|
3 |
5 |
elsif ($uptype eq 'minor') { }
|
|
|
4 |
1 |
elsif ($uptype eq 'micro') { }
|
|
467
|
9 |
1 |
if (defined $rel) { }
|
|
468
|
9 |
0 |
if ($rel =~ /^\d+(.*)$/) { }
|