Condition Coverage

blib/lib/Net/DRI/Data/Contact.pm
Criterion Covered Total %
condition 5 71 7.0


and 3 conditions

line !l l&&!r l&&r condition
202 0 0 70 defined $what and $what
0 30 40 defined $what and $what and exists $$self{$what}
263 1 0 3 defined $s and ref $s eq 'ARRAY'
275 0 0 0 defined $r && length $r
280 0 0 0 $self->srid and not Net::DRI::Util::xml_is_token($self->srid, 3, 16)
281 0 0 0 $self->name and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->name
282 0 0 0 $self->org and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->org
291 0 0 0 $self->city and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->city
292 0 0 0 $self->sp and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->sp
293 0 0 0 $self->pc and grep {not Net::DRI::Util::xml_is_token($_, undef, 16);} $self->pc
294 0 0 0 $self->cc and grep {not Net::DRI::Util::xml_is_token($_, 2, 2);} $self->cc
295 0 0 0 $self->cc and grep {not exists $Net::DRI::Util::CCA2{uc $_};} $self->cc
297 0 0 0 $self->voice and not $self->voice =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/
298 0 0 0 $self->fax and not $self->fax =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/
299 0 0 0 Net::DRI::Util::xml_is_token($self->email, 1, undef) && 'Email::Valid'->rfc822($self->email)
0 0 0 $self->email and not Net::DRI::Util::xml_is_token($self->email, 1, undef) && 'Email::Valid'->rfc822($self->email)
302 0 0 0 $ra and ref $ra eq 'HASH'
0 0 0 $ra and ref $ra eq 'HASH' and exists $$ra{'pw'}
0 0 0 $ra and ref $ra eq 'HASH' and exists $$ra{'pw'} and not Net::DRI::Util::xml_is_normalizedstring($$ra{'pw'})
313 0 0 0 defined $sep and $sep

or 2 conditions

line l !l condition
270 0 0 $change ||= 0

or 3 conditions

line l !l&&r !l&&!r condition
193 0 0 0 ref $class || $class
288 0 0 0 ref $rs[$i] ne 'ARRAY' or @{$rs[$i];} > 3
0 0 0 ref $rs[$i] ne 'ARRAY' or @{$rs[$i];} > 3 or grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} @{$rs[$i];}