| line |
true |
false |
branch |
|
170
|
0 |
0 |
if ($perl_version =~ s/\.dev\d*$//)
|
|
237
|
3 |
3 |
if (defined $self->base and length $self->base > 0) { }
|
|
319
|
2 |
4 |
if (not defined $file && length $file) { }
|
|
|
1 |
3 |
elsif (not -f $file) { }
|
|
351
|
2 |
7 |
if (not defined $file && length $file) { }
|
|
|
1 |
6 |
elsif (not -f $file) { }
|
|
372
|
0 |
6 |
unless my $in = "IO::File"->new($file, "r")
|
|
383
|
143 |
30 |
if ($line =~ /^([^=]+)=(.+)$/)
|
|
385
|
53 |
90 |
if (exists $translator{$key}) { }
|
|
|
6 |
84 |
elsif ($key eq 'PLATFORMS') { }
|
|
|
6 |
78 |
elsif ($key eq 'NAME') { }
|
|
394
|
6 |
0 |
if ($value =~ /^(.+?)-(.+?)$/) { }
|
|
401
|
1 |
5 |
if ($compname ne "\$(COMP)")
|
|
412
|
3 |
3 |
if (not ref $proto) { }
|
|
|
1 |
2 |
elsif (defined builtin::blessed($proto) and $proto->isa(__PACKAGE__)) { }
|
|
438
|
2 |
1 |
unless (defined $file and length $file)
|
|
473
|
1 |
5 |
if (not defined $release) { }
|
|
517
|
3 |
8 |
if ($uptype eq 'major') { }
|
|
|
3 |
5 |
elsif ($uptype eq 'minor') { }
|
|
|
4 |
1 |
elsif ($uptype eq 'micro') { }
|
|
537
|
9 |
1 |
if (defined $rel) { }
|
|
538
|
9 |
0 |
if ($rel =~ /^\d+(.*)$/) { }
|