| line |
true |
false |
branch |
|
97
|
0 |
0 |
if @mk |
|
98
|
0 |
0 |
unless Net::DRI::Util::verify_ushort($$e{'keyTag'}) |
|
99
|
0 |
0 |
unless Net::DRI::Util::verify_ubyte($$e{'alg'}) |
|
100
|
0 |
0 |
unless Net::DRI::Util::verify_ubyte($$e{'digestType'}) |
|
101
|
0 |
0 |
unless Net::DRI::Util::verify_hex($$e{'digest'}) |
|
109
|
0 |
0 |
if (exists $$e{'maxSigLife'} and not $nomsl) |
|
111
|
0 |
0 |
unless Net::DRI::Util::verify_int($$e{'maxSigLife'}, 1) |
|
116
|
0 |
0 |
if (exists $$e{'key_flags'} or exists $$e{'key_protocol'} or exists $$e{'key_alg'} or exists $$e{'key_pubKey'}) |
|
129
|
0 |
0 |
if @mk |
|
131
|
0 |
0 |
unless Net::DRI::Util::verify_ushort($$e{'key_flags'}) |
|
132
|
0 |
0 |
unless Net::DRI::Util::verify_ubyte($$e{'key_protocol'}) |
|
133
|
0 |
0 |
unless Net::DRI::Util::verify_ubyte($$e{'key_alg'}) |
|
134
|
0 |
0 |
unless Net::DRI::Util::verify_base64($$e{'key_pubKey'}, 1) |
|
144
|
0 |
0 |
unless defined $mes->node_greeting |
|
149
|
0 |
0 |
unless @v |
|
150
|
0 |
0 |
if grep {not /^urn:ietf:params:xml:ns:secDNS-1\.[01]$/;} @v |
|
153
|
0 |
0 |
if (grep {/1\.1/;} @v) { } |
|
156
|
0 |
0 |
if grep {/1\.0/;} @v |
|
175
|
0 |
0 |
if ($name =~ /^(keyTag|alg|digestType|digest|maxSigLife)$/) { } |
|
|
0 |
0 |
elsif ($name eq 'keyData') { } |
|
193
|
0 |
0 |
if ($name =~ /^(flags|protocol|alg|pubKey)$/) |
|
205
|
0 |
0 |
unless $mes->is_success |
|
208
|
0 |
0 |
unless defined $infdata |
|
213
|
0 |
0 |
if ($ns =~ /1\.0/) { } |
|
222
|
0 |
0 |
if ($name eq 'maxSigLife') { } |
|
|
0 |
0 |
elsif ($name eq 'dsData') { } |
|
|
0 |
0 |
elsif ($name eq 'keyData') { } |
|
228
|
0 |
0 |
if defined $msl |
|
234
|
0 |
0 |
if defined $msl |
|
251
|
0 |
0 |
unless Net::DRI::Util::has_key($rd, 'secdns') |
|
252
|
0 |
0 |
unless ref $$rd{'secdns'} eq 'ARRAY' |
|
253
|
0 |
0 |
unless @{$$rd{'secdns'};} |
|
257
|
0 |
0 |
if ($mes->ns('secDNS') =~ /1\.0/) { } |
|
274
|
0 |
0 |
unless %msl |
|
276
|
0 |
0 |
if keys %msl > 1 |
|
278
|
0 |
0 |
unless Net::DRI::Util::verify_int($msl, 1) |
|
286
|
0 |
0 |
unless exists $$_{'keyTag'} or exists $$_{'alg'} or exists $$_{'digestType'} |
|
287
|
0 |
0 |
if exists $$_{'key_flags'} || exists $$_{'key_protocol'} || exists $$_{'key_alg'} || exists $$_{'key_pubKey'} and not exists $$_{'keyTag'} and not exists $$_{'alg'} and not exists $$_{'digestType'} |
|
288
|
0 |
0 |
unless $cd or $ck |
|
289
|
0 |
0 |
if $cd and $ck |
|
290
|
0 |
0 |
$cd ? : |
|
304
|
0 |
0 |
unless @def |
|
306
|
0 |
0 |
grep({/-1\.1$/;} $mes->ns('secDNS')) ? : |
|
307
|
0 |
0 |
if $ver eq '1.0' and @def > 1 |
|
309
|
0 |
0 |
defined $urgent && $urgent ? : |
|
310
|
0 |
0 |
defined $urgent && $urgent ? : |
|
314
|
0 |
0 |
if ($ver eq '1.0') { } |
|
316
|
0 |
0 |
if (defined $todel) |
|
319
|
0 |
0 |
ref $todel eq 'ARRAY' ? : |
|
321
|
0 |
0 |
if ref $e eq 'HASH' |
|
322
|
0 |
0 |
unless Net::DRI::Util::verify_ushort($e) |
|
327
|
0 |
0 |
ref $toadd eq 'ARRAY' ? : |
|
|
0 |
0 |
if defined $toadd |
|
328
|
0 |
0 |
ref $toset eq 'ARRAY' ? : |
|
|
0 |
0 |
if defined $toset |
|
331
|
0 |
0 |
if (defined $todel) |
|
333
|
0 |
0 |
if (not ref $todel) { } |
|
335
|
0 |
0 |
unless $todel eq 'all' |
|
339
|
0 |
0 |
ref $todel eq 'ARRAY' ? : |
|
342
|
0 |
0 |
ref $toadd eq 'ARRAY' ? : |
|
|
0 |
0 |
if defined $toadd |
|
343
|
0 |
0 |
ref $toset eq 'HASH' ? : |
|
|
0 |
0 |
ref $toset eq 'ARRAY' ? : |
|
|
0 |
0 |
if defined $toset |