| line |
true |
false |
branch |
|
91
|
0 |
0 |
ref $d eq 'ARRAY' ? : |
|
93
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($n, 1, 255) |
|
103
|
0 |
0 |
unless $d eq '' or Net::DRI::Util::xml_is_language($d) |
|
110
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($d, undef, 128) |
|
117
|
0 |
0 |
unless '' . $d and length $d <= 1000 |
|
124
|
0 |
0 |
unless ref $rd eq 'HASH' |
|
125
|
0 |
0 |
unless exists $$rd{'type'} |
|
126
|
0 |
0 |
unless $$rd{'type'} =~ /^(?:natural|legal)$/ |
|
127
|
0 |
0 |
if ($$rd{'type'} eq 'natural') { } |
|
129
|
0 |
0 |
unless exists $$rd{'disclose'} |
|
130
|
0 |
0 |
$$rd{'disclose'} ? : |
|
141
|
0 |
0 |
unless defined $rd and ref $rd eq 'HASH' and keys %$rd |
|
143
|
0 |
0 |
if (exists $$rd{'name_variant'} and defined $$rd{'name_variant'}) |
|
148
|
0 |
0 |
if exists $$rd{'lang'} and defined $$rd{'lang'} |
|
149
|
0 |
0 |
if exists $$rd{'maintainer'} and defined $$rd{'maintainer'} |
|
151
|
0 |
0 |
unless exists $$rd{'ens'} and defined $$rd{'ens'} and ref $$rd{'ens'} eq 'HASH' |
|
155
|
0 |
0 |
if (exists $ens{'auth'} and defined $ens{'auth'}) |
|
157
|
0 |
0 |
ref $ens{'auth'} eq 'HASH' ? : |
|
158
|
0 |
0 |
unless exists $auth{'id'} and defined $auth{'id'} |
|
159
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($auth{'id'}, 1, 20) |
|
160
|
0 |
0 |
if exists $auth{'key'} and not Net::DRI::Util::xml_is_token($auth{'key'}, 1, 20) |
|
164
|
0 |
0 |
if (exists $ens{'sponsor'} and defined $ens{'sponsor'}) |
|
167
|
0 |
0 |
ref $ens{'sponsor'} eq 'ARRAY' ? : |
|
169
|
0 |
0 |
unless defined $e and Net::DRI::Util::xml_is_token($e, 1, undef) and 'Email::Valid'->rfc822($e) |
|
172
|
0 |
0 |
unless @e == 1 or @e == 3 |
|
176
|
0 |
0 |
if (exists $ens{'ref_url'} and defined $ens{'ref_url'}) |
|
178
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($ens{'ref_url'}, 1, 255) |
|
182
|
0 |
0 |
if (exists $ens{'registration_type'} and defined $ens{'registration_type'}) |
|
184
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($ens{'registration_type'}, 1, 128) |
|
188
|
0 |
0 |
unless exists $ens{'intended_use'} and defined $ens{'intended_use'} |
|
191
|
0 |
0 |
if @ens |
|
193
|
0 |
0 |
if Net::DRI::Util::has_key($rd, 'registrant_disclosure') |
|
203
|
0 |
0 |
unless @n |
|
216
|
0 |
0 |
if ($todo->types('name_variant')) |
|
218
|
0 |
0 |
if grep {not /^(?:add|del)$/;} $todo->types('name_variant') |
|
221
|
0 |
0 |
if @tmp |
|
223
|
0 |
0 |
if @tmp |
|
228
|
0 |
0 |
if ($todo->types('lang')) |
|
230
|
0 |
0 |
if grep {$_ ne 'set';} $todo->types('lang') |
|
233
|
0 |
0 |
if ($todo->types('maintainer')) |
|
235
|
0 |
0 |
if grep {$_ ne 'set';} $todo->types('maintainer') |
|
238
|
0 |
0 |
if ($todo->types('intended_use')) |
|
240
|
0 |
0 |
if grep {$_ ne 'set';} $todo->types('intended_use') |
|
243
|
0 |
0 |
if ($todo->types('registrant_disclosure')) |
|
245
|
0 |
0 |
if grep {$_ ne 'set';} $todo->types('registrant_disclosure') |
|
248
|
0 |
0 |
if @tmp |
|
250
|
0 |
0 |
unless @n |
|
260
|
0 |
0 |
unless $mes->is_success |
|
263
|
0 |
0 |
unless $infdata |
|
268
|
0 |
0 |
if ($name eq 'nameVariant') { } |
|
|
0 |
0 |
elsif ($name eq 'language') { } |
|
|
0 |
0 |
elsif ($name eq 'maintainer') { } |
|
|
0 |
0 |
elsif ($name eq 'ens') { } |
|
|
0 |
0 |
elsif ($name eq 'disclosure') { } |
|
283
|
0 |
0 |
if ($name2 eq 'auth') { } |
|
|
0 |
0 |
elsif ($name2 eq 'sponsoring') { } |
|
|
0 |
0 |
elsif ($name2 eq 'refURL') { } |
|
|
0 |
0 |
elsif ($name2 eq 'registrationType') { } |
|
|
0 |
0 |
elsif ($name2 eq 'intendedUse') { } |
|
306
|
0 |
0 |
if $e{'type'} eq 'natural' |