Branch Coverage

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


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