line |
true |
false |
branch |
61
|
0 |
21 |
if @_ % 2 |
62
|
0 |
21 |
ref $this ? : |
70
|
2 |
2 |
if ($key eq 'header') { } |
|
0 |
2 |
elsif ($key eq 'horizontal') { } |
|
0 |
2 |
elsif ($key eq 'vertical') { } |
71
|
1 |
1 |
if (ref $value eq 'HASH') { } |
|
1 |
0 |
elsif (ref $value eq 'ARRAY') { } |
75
|
2 |
5 |
if exists $copy{$key} |
84
|
0 |
0 |
unless ref $value eq "ARRAY" |
87
|
0 |
0 |
unless ref $value eq "ARRAY" |
90
|
0 |
2 |
if ref $value |
94
|
1 |
20 |
if @later |
115
|
7 |
2 |
ref $file eq 'SCALAR' ? : |
116
|
1 |
8 |
unless length $blob |
124
|
30 |
4 |
if ($line) |
127
|
4 |
26 |
unless defined $value |
129
|
2 |
28 |
if ($loop == 1 and $key ne 'NAME') { } |
133
|
6 |
22 |
if (uc $key eq 'HORIZONTAL') { } |
|
6 |
16 |
elsif (uc $key eq 'VERTICAL') { } |
142
|
8 |
26 |
unless @lines |
151
|
10 |
2 |
if ($value =~ /([0-9]+)/) { } |
157
|
0 |
12 |
unless scalar @data == $value |
172
|
0 |
1 |
unless my $zip_filename = shift() |
173
|
0 |
1 |
unless my $member_filename = shift() |
177
|
0 |
1 |
unless ($zip_archive->read("$zip_filename") == Archive::Zip::AZ_OK()) |
178
|
0 |
1 |
unless my $member = $zip_archive->memberNamed($member_filename) |
211
|
2 |
0 |
if (ref $filename eq 'SCALAR') { } |
|
0 |
0 |
elsif (length $filename) { } |
216
|
0 |
0 |
unless $fh = $file->open("w") |
240
|
2 |
8 |
if $key eq "NAME" |
242
|
8 |
0 |
if defined $value |
249
|
4 |
0 |
if (@$array) |
262
|
0 |
4 |
unless $array |
286
|
0 |
0 |
if @_ |
287
|
0 |
0 |
unless defined $self->{'write_file_extension'} |
329
|
0 |
325 |
if @_ % 2 |
330
|
19 |
306 |
unless (defined $self->{'header'}) |
353
|
7 |
1096 |
if @_ |
367
|
7 |
1096 |
if @_ |
388
|
1 |
11 |
if @_ |
405
|
0 |
3 |
if @_ |
424
|
9 |
44 |
if @_ |
453
|
35 |
0 |
if (defined $string) |
459
|
14 |
21 |
if ($string =~ /GHz/i) { } |
|
5 |
16 |
elsif ($string =~ /kHz/i) { } |
|
2 |
14 |
elsif ($string =~ /MHz/i) { } |
467
|
11 |
24 |
if (&Scalar::Util::looks_like_number($string)) { } |
|
18 |
6 |
elsif ($string =~ /([0-9]*\.?[0-9]+)[^0-9.]+([0-9]*\.?[0-9]+)/) { } |
|
6 |
0 |
elsif ($string =~ /([0-9]*\.?[0-9]+)/) { } |
491
|
9 |
0 |
$mhz ? : |
509
|
2 |
0 |
$mhz ? : |
515
|
2 |
0 |
$mhz ? : |
532
|
22 |
52 |
if @_ |
546
|
48 |
0 |
if (defined $string) |
548
|
12 |
36 |
if (&Scalar::Util::looks_like_number($string)) { } |
|
36 |
0 |
elsif ($string =~ /([+-]?[0-9]*\.?[0-9]+)/) { } |
552
|
16 |
20 |
$string =~ /dBi/i ? : |
562
|
24 |
0 |
defined $dbd ? : |
577
|
18 |
29 |
if @_ |
593
|
5 |
13 |
if @_ |
616
|
27 |
1 |
if (defined $tilt) |
619
|
3 |
24 |
if ($tilt =~ /\A(NONE|MECHANICAL)/i) { } |
|
1 |
23 |
elsif (&Scalar::Util::looks_like_number($tilt)) { } |
|
1 |
22 |
elsif ($tilt =~ /\A-?([0-9]{1,2})[-\s]deg.*ELECTRICAL/i) { } |
|
1 |
21 |
elsif ($tilt =~ /\A-?([0-9]{1,2})[-\s]deg.*E-TILT/i) { } |
|
2 |
19 |
elsif ($tilt =~ /\A([0-9]{1,2})T\Z/i) { } |
|
2 |
17 |
elsif ($tilt =~ /\AT([0-9]{1,2})\Z/i) { } |
|
2 |
15 |
elsif ($tilt =~ /\AELECTRICAL -?([0-9]{1,2})\b/) { } |
|
11 |
4 |
elsif ($tilt =~ /\AELECTRICAL\Z/i) { } |
638
|
2 |
9 |
if (&Scalar::Util::looks_like_number($electrical_tilt)) { } |
|
1 |
8 |
elsif ($electrical_tilt =~ /\A-?([0-9]{1,2})\b/i) { } |
|
2 |
6 |
elsif ($comment =~ /ELECTRICAL_TILT\s+-?([0-9]{1,2})\b/i) { } |
|
3 |
3 |
elsif ($comment =~ /E-?TILT\s+-?([0-9]{1,2})\b/i) { } |
663
|
6 |
14 |
if @_ |