| line |
true |
false |
branch |
|
77
|
2 |
4 |
if $args{'file'} |
|
100
|
0 |
2 |
unless open my $rrfile, '<', $file |
|
105
|
262 |
424 |
if /^\s*($|#)/ |
|
106
|
310 |
114 |
if (/^\s/) |
|
111
|
112 |
2 |
if scalar @xllist |
|
115
|
2 |
0 |
if scalar @xllist |
|
145
|
0 |
116 |
unless $rr |
|
148
|
0 |
116 |
unless $rrname and $rrnum |
|
153
|
0 |
318 |
unless /$fieldpattern/o |
|
199
|
0 |
60 |
unless $rrn |
|
201
|
2 |
58 |
if ($rrn =~ /^\d+$/) { } |
|
202
|
1 |
1 |
if $self->{'rrnums'}{$rrn} |
|
203
|
0 |
1 |
if defined $self->{'file'} |
|
208
|
57 |
1 |
if $self->{'rrnames'}{$rrn} |
|
209
|
0 |
1 |
if defined $self->{'file'} |
|
222
|
2 |
2 |
if $rr->type ne 'TXT' |
|
226
|
0 |
2 |
unless $txt[0] eq 'RRTYPE=1' |
|
229
|
0 |
2 |
unless $trname and $trno |
|
232
|
0 |
2 |
unless $txt[1] =~ /$rrn/ |
|
274
|
285 |
873 |
if ($qual) |
|
277
|
118 |
167 |
if exists $pats{$k} |
|
281
|
682 |
358 |
exists $pats{$type} ? : |
|
304
|
0 |
60 |
unless $rrn |
|
307
|
60 |
0 |
if $rrr |
|
339
|
0 |
170 |
if $type eq 'Z' |
|
342
|
7 |
163 |
if $dirtywords{$name} |
|
345
|
0 |
170 |
if not $name or exists $fields{$name} |
|
349
|
33 |
137 |
if ($type eq 'N') { } |
|
|
16 |
121 |
elsif ($type eq 'S') { } |
|
|
9 |
112 |
elsif ($type eq 'B64') { } |
|
|
1 |
111 |
elsif ($type eq 'B32') { } |
|
|
4 |
107 |
elsif ($type eq 'T' or $type eq 'T6') { } |
|
|
4 |
103 |
elsif ($type eq 'R') { } |
|
351
|
8 |
25 |
if $quals =~ /A/ |
|
361
|
3 |
1 |
if ($quals eq 'L') { } |
|
385
|
27 |
33 |
if $usedomainname |
|
386
|
7 |
53 |
if $usemailbox |
|
387
|
10 |
50 |
if $usetext |
|
388
|
9 |
51 |
if $usebase64 |
|
389
|
2 |
58 |
if $usetime |
|
390
|
1 |
59 |
if $userrtype |
|
391
|
3 |
57 |
if $usensechelp |
|
543
|
60 |
574 |
if $type eq 'B64' or $type eq 'X' and not $quals |
|
556
|
15 |
155 |
if ($type =~ /I\d/ and $quals) |
|
563
|
1 |
154 |
if ($type eq 'AAAA') |
|
610
|
17 |
137 |
if (substr($getval, 0, 2) eq 'FN') { } |
|
617
|
9 |
145 |
if ($type eq 'B64') |
|
620
|
6 |
148 |
if ($type eq 'X' and not $quals) |
|
655
|
59 |
1 |
$defaults ? : |
|
727
|
0 |
170 |
if $offoff < 0 |
|
729
|
100 |
70 |
if ($pat) { } |
|
734
|
23 |
47 |
if ($size < 0) { } |
|
739
|
59 |
1 |
$decode ? : |
|
789
|
118 |
52 |
unless $field |
|
792
|
33 |
137 |
if ($field =~ /#O#/) |
|
793
|
16 |
17 |
if ($packpat) |
|
794
|
1 |
15 |
if ($packcode) { } |
|
799
|
6 |
10 |
if ($packpat =~ /^(a\*)+$/) { } |
|
806
|
16 |
17 |
if ($packcode) { } |
|
820
|
59 |
1 |
if ($packpat) |
|
821
|
15 |
44 |
if ($packcode) { } |
|
826
|
32 |
27 |
if ($packpat =~ /^(a\*)+$/) { } |
|
833
|
59 |
1 |
$packcode ? : |
|
851
|
0 |
170 |
if $eaten |
|
863
|
21 |
149 |
if $val =~ /\@_/ |
|
869
|
59 |
1 |
$decode ? : |
|
908
|
59 |
1 |
scalar @rdata ? : |