| 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) { } |
|
634
|
6 |
5 |
unless defined $comment |
|
635
|
7 |
4 |
unless defined $electrical_tilt |
|
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 @_ |