Branch Coverage

blib/lib/Net/DRI/Data/Contact/NO.pm
Criterion Covered Total %
branch 0 82 0.0


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