Branch Coverage

blib/lib/Net/DRI/Data/Contact.pm
Criterion Covered Total %
branch 25 78 32.0


line true false branch
186 61 31 $class eq 'Net::DRI::Data::Contact' ? :
202 30 40 unless defined $what and $what and exists $$self{$what}
204 18 22 unless $what =~ /^(name|org|street|city|sp|pc|cc)$/
212 9 13 if ($what eq 'street') { }
214 0 9 unless ref $d eq 'ARRAY'
215 3 1 wantarray ? :
22 0 unless not defined $_
4 5 unless 2 == grep({ref $_ eq 'ARRAY' unless not defined $_;} @$d)
218 3 10 unless ref $d eq 'ARRAY'
220 13 2 wantarray ? :
229 1 5 defined $c[0] ? :
233 0 1 if (defined $c[0]) { }
235 0 0 defined $_ ? :
263 3 1 if defined $s and ref $s eq 'ARRAY'
264 3 1 grep({defined $_;} @d) ? :
273 0 0 unless ($change)
275 0 0 defined $r && length $r ? :
276 0 0 if @missing
277 0 0 unless Net::DRI::Util::xml_is_token($self->srid, 3, 16)
280 0 0 if $self->srid and not Net::DRI::Util::xml_is_token($self->srid, 3, 16)
281 0 0 if $self->name and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->name
282 0 0 if $self->org and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->org
287 0 0 unless defined $rs[$i]
288 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];}
291 0 0 if $self->city and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->city
292 0 0 if $self->sp and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->sp
293 0 0 if $self->pc and grep {not Net::DRI::Util::xml_is_token($_, undef, 16);} $self->pc
294 0 0 if $self->cc and grep {not Net::DRI::Util::xml_is_token($_, 2, 2);} $self->cc
295 0 0 if $self->cc and grep {not exists $Net::DRI::Util::CCA2{uc $_};} $self->cc
297 0 0 if $self->voice and not $self->voice =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/
298 0 0 if $self->fax and not $self->fax =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/
299 0 0 if $self->email and not Net::DRI::Util::xml_is_token($self->email, 1, undef) && 'Email::Valid'->rfc822($self->email)
302 0 0 if $ra and ref $ra eq 'HASH' and exists $$ra{'pw'} and not Net::DRI::Util::xml_is_normalizedstring($$ra{'pw'})
306 0 0 if @errs
313 0 0 unless defined $sep and $sep
315 0 0 defined $st ? :
320 0 0 unless defined $v
321 0 0 if (ref $v eq 'HASH') { }
327 0 0 defined $$v{$k} ? :