| line |
true |
false |
branch |
|
61
|
0 |
19 |
if @_ % 2 |
|
62
|
0 |
19 |
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 |
18 |
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() |
|
179
|
0 |
1 |
unless ($zip_archive->read("$zip_filename") == Archive::Zip::AZ_OK()) |
|
217
|
2 |
0 |
if (ref $filename eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (length $filename) { } |
|
222
|
0 |
0 |
unless $fh = $file->open("w") |
|
246
|
2 |
8 |
if $key eq "NAME" |
|
248
|
8 |
0 |
if defined $value |
|
255
|
4 |
0 |
if (@$array) |
|
268
|
0 |
4 |
unless $array |
|
292
|
0 |
0 |
if @_ |
|
293
|
0 |
0 |
unless defined $self->{'write_file_extension'} |
|
335
|
0 |
220 |
if @_ % 2 |
|
336
|
17 |
203 |
unless (defined $self->{'header'}) |
|
359
|
7 |
1096 |
if @_ |
|
373
|
7 |
1096 |
if @_ |
|
394
|
1 |
11 |
if @_ |
|
411
|
0 |
3 |
if @_ |
|
430
|
9 |
44 |
if @_ |
|
459
|
35 |
0 |
if (defined $string) |
|
465
|
14 |
21 |
if ($string =~ /GHz/i) { } |
|
|
5 |
16 |
elsif ($string =~ /kHz/i) { } |
|
|
2 |
14 |
elsif ($string =~ /MHz/i) { } |
|
473
|
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]+)/) { } |
|
497
|
9 |
0 |
$mhz ? : |
|
515
|
2 |
0 |
$mhz ? : |
|
521
|
2 |
0 |
$mhz ? : |
|
538
|
22 |
52 |
if @_ |
|
552
|
48 |
0 |
if (defined $string) |
|
554
|
12 |
36 |
if (&Scalar::Util::looks_like_number($string)) { } |
|
|
36 |
0 |
elsif ($string =~ /([+-]?[0-9]*\.?[0-9]+)/) { } |
|
558
|
16 |
20 |
$string =~ /dBi/i ? : |
|
568
|
24 |
0 |
defined $dbd ? : |
|
582
|
1 |
2 |
if @_ |
|
597
|
1 |
3 |
if @_ |