| line |
true |
false |
branch |
|
76
|
0 |
0 |
unless ($change) |
|
78
|
0 |
0 |
unless scalar(($self->name)[1]) and scalar(($self->city)[1]) and scalar(($self->cc)[1]) and $self->email and $self->srid |
|
80
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($self->srid, 3, 16) |
|
83
|
0 |
0 |
if $self->srid and not $self->srid =~ /^\w{1,80}-\w{1,8}$/ |
|
84
|
0 |
0 |
if $self->name and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->name |
|
85
|
0 |
0 |
if $self->org and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->org |
|
90
|
0 |
0 |
unless $rs[$i] |
|
91
|
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];} |
|
94
|
0 |
0 |
if $self->city and grep {not Net::DRI::Util::xml_is_normalizedstring($_, 1, 255);} $self->city |
|
95
|
0 |
0 |
if $self->sp and grep {not Net::DRI::Util::xml_is_normalizedstring($_, undef, 255);} $self->sp |
|
96
|
0 |
0 |
if $self->pc and grep {not Net::DRI::Util::xml_is_token($_, undef, 16);} $self->pc |
|
97
|
0 |
0 |
if $self->cc and grep {not Net::DRI::Util::xml_is_token($_, 2, 2);} $self->cc |
|
98
|
0 |
0 |
if $self->cc and grep {not exists $Net::DRI::Util::CCA2{uc $_};} $self->cc |
|
100
|
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+)?$/ |
|
101
|
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+)?$/ |
|
102
|
0 |
0 |
if $self->email and not Net::DRI::Util::xml_is_token($self->email, 1, undef) and not 'Email::Valid'->rfc822($self->email) |
|
106
|
0 |
0 |
if @errs |
|
115
|
0 |
0 |
if ($what eq 'create') |
|
118
|
0 |
0 |
unless $a and ref $a eq 'HASH' and exists $a->{'pw'} |
|
119
|
0 |
0 |
unless defined $self->srid |