| line |
true |
false |
branch |
|
156
|
0 |
0 |
unless ($change) |
|
157
|
0 |
0 |
unless $self->name and $self->city and $self->cc and $self->email and $self->auth and $self->srid |
|
166
|
0 |
0 |
if $self->org |
|
169
|
0 |
0 |
unless $self->type |
|
174
|
0 |
0 |
if $self->srid and not Net::DRI::Util::xml_is_token($self->srid, 3, 16) |
|
177
|
0 |
0 |
if $self->name and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->name |
|
181
|
0 |
0 |
if $self->org and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->org |
|
187
|
0 |
0 |
unless $rs[$i] |
|
193
|
0 |
0 |
if ref $rs[$i] ne 'ARRAY' or @{$rs[$i];} > 3 or grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} @{$rs[$i];} |
|
200
|
0 |
0 |
if $self->city and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->city |
|
204
|
0 |
0 |
if $self->sp and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->sp |
|
208
|
0 |
0 |
if $self->pc and grep {not Net::DRI::Util::xml_is_token($_, undef, 16);} $self->pc |
|
211
|
0 |
0 |
if $self->cc and grep {not Net::DRI::Util::xml_is_token($_, 2, 2);} $self->cc |
|
215
|
0 |
0 |
if $self->cc and grep {not exists $Net::DRI::Util::CCA2{uc $_};} $self->cc |
|
218
|
0 |
0 |
if $self->voice and not Net::DRI::Util::xml_is_token($self->voice, undef, 17) and not $self->voice =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/mx |
|
222
|
0 |
0 |
if $self->fax and not Net::DRI::Util::xml_is_token($self->fax, undef, 17) and not $self->fax =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/mx |
|
226
|
0 |
0 |
if $self->email and not Net::DRI::Util::xml_is_token($self->email, 1, undef) && 'Email::Valid'->rfc822($self->email) |
|
240
|
0 |
0 |
if $ra and ref $ra eq 'HASH' and exists $ra->{'pw'} and not Net::DRI::Util::xml_is_normalizedstring($ra->{'pw'}) |
|
244
|
0 |
0 |
if $t and not $t =~ /^(?:person|organization|role)$/mx |
|
248
|
0 |
0 |
if ($t) |
|
251
|
0 |
0 |
if $ty and not $ty =~ /^(?:organizationNumber|localIdentity|nationalIdentityNumber|anonymousPersonIdentifier)$/mx |
|
261
|
0 |
0 |
if $t and not Net::DRI::Util::xml_is_token($t, undef, 17) and not $t =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/mx |
|
268
|
0 |
0 |
if ($t = $self->$el) |
|
272
|
0 |
0 |
if ($change) { } |
|
273
|
0 |
0 |
if (ref $t eq 'HASH') { } |
|
276
|
0 |
0 |
if (ref $e eq 'ARRAY') { } |
|
277
|
0 |
0 |
if @$e |
|
279
|
0 |
0 |
if $e |
|
286
|
0 |
0 |
if (ref $t eq 'ARRAY') { } |
|
287
|
0 |
0 |
if @$t |
|
289
|
0 |
0 |
if $t |
|
293
|
0 |
0 |
if ($el eq 'xemail') { } |
|
294
|
0 |
0 |
if $e and not Net::DRI::Util::xml_is_token($e, 1, undef) && 'Email::Valid'->rfc822($e) |
|
303
|
0 |
0 |
if $e and not Net::DRI::Util::xml_is_token($e, 3, 16) |
|
307
|
0 |
0 |
if $er |
|
313
|
0 |
0 |
if (my $d = $self->xdisclose) |
|
314
|
0 |
0 |
unless ($d and ref $d eq 'HASH' and scalar keys %$d == 1 and $d->{'mobilePhone'} == 1 || $d->{'mobilePhone'} == 0) |
|
323
|
0 |
0 |
if @errs |
|
331
|
0 |
0 |
if ($what eq 'create') |
|
334
|
0 |
0 |
unless $a and ref $a eq 'HASH' and exists $a->{'pw'} |
|
336
|
0 |
0 |
unless defined $self->srid |