| line |
true |
false |
branch |
|
55
|
1 |
26 |
unless $limit == length $$data |
|
69
|
31 |
5 |
unless ($macbin) |
|
145
|
1 |
25 |
unless scalar @argument |
|
156
|
102 |
27 |
$self->{'time_signed'} ? : |
|
169
|
4 |
1 |
unless scalar @value |
|
183
|
2 |
1 |
unless scalar @value |
|
197
|
2 |
1 |
unless scalar @value |
|
220
|
2 |
18 |
if $error == 18 |
|
228
|
3 |
6 |
$_ ? : |
|
229
|
6 |
84 |
$self->{'other'} ? : |
|
248
|
59 |
2 |
if (ref $message) |
|
249
|
1 |
58 |
unless $message->isa("Net::DNS::Packet") |
|
254
|
16 |
42 |
if (my $rawref = $self->{'rawref'}) { } |
|
271
|
15 |
45 |
if $self->{'link'} |
|
273
|
18 |
42 |
if $prior_macbin |
|
277
|
8 |
34 |
$req_mac ? : |
|
299
|
2 |
52 |
unless defined $karg |
|
301
|
32 |
20 |
if (ref $karg) { } |
|
|
19 |
1 |
elsif (scalar(@argument) % 2 == 0) { } |
|
302
|
5 |
27 |
if ($karg->isa('Net::DNS::Packet')) { } |
|
|
16 |
11 |
elsif (ref $karg eq __PACKAGE__) { } |
|
|
10 |
1 |
elsif (ref $karg eq 'Net::DNS::RR::KEY') { } |
|
304
|
2 |
3 |
unless defined $sigrr |
|
339
|
14 |
51 |
if /^key "([^"]+)"/ |
|
340
|
14 |
51 |
if /algorithm ([^;]+);/ |
|
341
|
14 |
51 |
if /secret "([^"]+)";/ |
|
343
|
2 |
63 |
if /^Algorithm:/ |
|
344
|
2 |
63 |
if /^Key:/ |
|
346
|
62 |
3 |
unless /\bIN\s+KEY\b/ |
|
348
|
2 |
1 |
unless $keyrr->keytag == ($keytag || 0) |
|
354
|
1 |
43 |
unless $_ |
|
374
|
31 |
9 |
if (scalar @link) |
|
377
|
1 |
30 |
unless (ref $link) |
|
383
|
13 |
17 |
if ($link->isa('Net::DNS::Packet')) { } |
|
|
16 |
1 |
elsif ($link->isa(__PACKAGE__)) { } |
|
386
|
1 |
12 |
unless $signerkey eq $rqstkey |
|
391
|
1 |
15 |
unless $signerkey eq $priorkey |
|
399
|
8 |
30 |
if $self->{'error'} |
|
407
|
4 |
25 |
if $macbin ne substr($tsigmac, 0, $maclen) |
|
410
|
3 |
26 |
if $maclen < $minlen or $maclen > length $tsigmac |
|
411
|
2 |
27 |
if $maclen < 10 |
|
414
|
1 |
28 |
if (abs time - $time_signed > $self->fudge) |
|
419
|
7 |
22 |
$self->{'error'} ? : |
|
477
|
43 |
77 |
if (my $algname = shift()) |
|
479
|
41 |
2 |
if (my $digtype = _algbyname($algname)) { } |
|
502
|
77 |
37 |
defined wantarray ? : |
|
508
|
1 |
26 |
unless scalar @argument |
|
522
|
2 |
57 |
unless $keytable{$owner}{'digest'} |
|
524
|
1 |
58 |
unless $keyref->{'digest'} |