| line |
true |
false |
branch |
|
55
|
1 |
27 |
unless $limit == length $$data |
|
69
|
31 |
5 |
unless ($macbin) |
|
146
|
1 |
25 |
unless scalar @argument |
|
157
|
104 |
26 |
$self->{'time_signed'} ? : |
|
170
|
4 |
1 |
unless scalar @value |
|
184
|
2 |
1 |
unless scalar @value |
|
198
|
2 |
1 |
unless scalar @value |
|
221
|
2 |
18 |
if $error == 18 |
|
229
|
3 |
6 |
$_ ? : |
|
230
|
6 |
84 |
$self->{'other'} ? : |
|
249
|
60 |
1 |
if (ref $message) |
|
250
|
1 |
59 |
unless $message->isa("Net::DNS::Packet") |
|
255
|
17 |
42 |
if (my $rawref = $self->{'rawref'}) { } |
|
270
|
15 |
45 |
if $self->{'link'} |
|
272
|
19 |
41 |
if $prior_macbin |
|
276
|
8 |
33 |
$req_mac ? : |
|
298
|
2 |
52 |
unless defined $karg |
|
300
|
32 |
20 |
if (ref $karg) { } |
|
|
19 |
1 |
elsif (scalar(@argument) % 2 == 0) { } |
|
301
|
5 |
27 |
if ($karg->isa('Net::DNS::Packet')) { } |
|
|
16 |
11 |
elsif (ref $karg eq 'Net::DNS::RR::TSIG') { } |
|
|
10 |
1 |
elsif (ref $karg eq 'Net::DNS::RR::KEY') { } |
|
303
|
2 |
3 |
unless defined $sigrr |
|
338
|
14 |
51 |
if /^key "([^"]+)"/ |
|
339
|
14 |
51 |
if /algorithm ([^;]+);/ |
|
340
|
14 |
51 |
if /secret "([^"]+)";/ |
|
342
|
2 |
63 |
if /^Algorithm:/ |
|
343
|
2 |
63 |
if /^Key:/ |
|
345
|
62 |
3 |
unless /\bIN\s+KEY\b/ |
|
347
|
2 |
1 |
unless $keyrr->keytag == ($keytag || 0) |
|
353
|
1 |
43 |
unless $_ |
|
373
|
32 |
9 |
if (scalar @link) |
|
376
|
1 |
31 |
unless (ref $link) |
|
382
|
13 |
18 |
if ($link->isa('Net::DNS::Packet')) { } |
|
|
17 |
1 |
elsif ($link->isa('Net::DNS::RR::TSIG')) { } |
|
385
|
1 |
12 |
unless $signerkey eq $rqstkey |
|
390
|
1 |
16 |
unless $signerkey eq $priorkey |
|
398
|
8 |
31 |
if $self->{'error'} |
|
406
|
4 |
26 |
if $macbin ne substr($tsigmac, 0, $maclen) |
|
409
|
3 |
27 |
if $maclen < $minlen or $maclen > length $tsigmac |
|
410
|
2 |
28 |
if $maclen < 10 |
|
413
|
1 |
29 |
if (abs time - $time_signed > $self->fudge) |
|
418
|
7 |
23 |
$self->{'error'} ? : |
|
477
|
43 |
79 |
if (my $algname = shift()) |
|
479
|
41 |
2 |
if (my $digtype = _algbyname($algname)) { } |
|
502
|
79 |
37 |
defined wantarray ? : |
|
508
|
1 |
26 |
unless scalar @argument |
|
522
|
2 |
58 |
unless $keytable{$owner}{'digest'} |
|
524
|
1 |
59 |
unless $keyref->{'digest'} |