| line |
true |
false |
branch |
|
186
|
70 |
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} ? : |