Condition Coverage

blib/lib/Net/DRI/Data/Contact/AFNIC.pm
Criterion Covered Total %
condition 0 101 0.0


and 3 conditions

line !l l&&!r l&&r condition
138 0 0 0 $self->srid and not $self->srid =~ /^[A-Z]+(?:[1-9][0-9]*)?(?:-FRNIC)?$/i
139 0 0 0 $self->name =~ /^$NOM_PROPRE$/ && is_nom_libre($self->name)
0 0 0 $self->name and not $self->name =~ /^$NOM_PROPRE$/ && is_nom_libre($self->name)
140 0 0 0 $self->firstname and not $self->firstname =~ /^$NOM_PROPRE$/
141 0 0 0 $self->org and not is_nom_libre($self->org)
143 0 0 0 $self->legal_form and not $self->legal_form =~ /^(?:company|association|other)$/
144 0 0 0 $self->legal_form_other and not is_nom_libre($self->legal_form_other)
148 0 0 0 $self->legal_id and $self->legal_id_type eq 'sirent'
0 0 0 $self->legal_id and $self->legal_id_type eq 'sirent' and not $self->legal_id =~ /^[0-9]{9}(?:[0-9]{5})?$/
154 0 0 0 ref $jo eq 'HASH' and exists $$jo{'date_declaration'}
0 0 0 ref $jo eq 'HASH' and exists $$jo{'date_declaration'} and exists $$jo{'date_publication'}
0 0 0 ref $jo eq 'HASH' and exists $$jo{'date_declaration'} and exists $$jo{'date_publication'} and exists $$jo{'number'}
0 0 0 ref $jo eq 'HASH' and exists $$jo{'date_declaration'} and exists $$jo{'date_publication'} and exists $$jo{'number'} and exists $$jo{'page'}
166 0 0 0 $self->vat and not Net::DRI::Util::xml_is_token($self->vat)
167 0 0 0 $self->trademark and not $self->trademark =~ /^[0-9]*[A-Za-z]*[0-9]+$/
172 0 0 0 ref $birth eq 'HASH' and exists $$birth{'date'}
0 0 0 ref $birth eq 'HASH' and exists $$birth{'date'} and exists $$birth{'place'}
175 0 0 0 $$birth{'place'} =~ /^[A-Za-z]{2}$/ and not is_code_fr($$birth{'place'})
0 0 0 $$birth{'place'} =~ /^(?:[0-9]{5}|) *, *(.+)$/ and is_commune($1)
188 0 0 0 $isccfr and not $self->voice =~ /^\+33\./
193 0 0 0 $isccfr and not $self->fax =~ /^\+33\./
195 0 0 0 $self->email and not 'Email::Valid'->rfc822($self->email)
199 0 0 0 $self->disclose and not $self->disclose =~ /^[ONY]$/i
216 0 0 0 $rs and ref $rs ne 'ARRAY' || @$rs > 3 || grep({not is_adresse($_);} @$rs)
217 0 0 0 $self->city and not is_commune($self->city)
247 0 0 0 $what eq 'create' and $pn eq 'EPP'

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
156 0 0 0 $$jo{'date_declaration'} =~ m[^[0-9]{2}/[0-9]{2}/[0-9]{4}$] or $$jo{'date_declaration'} =~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/
157 0 0 0 $$jo{'date_publication'} =~ m[^[0-9]{2}/[0-9]{2}/[0-9]{4}$] or $$jo{'date_publication'} =~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/
174 0 0 0 ref $$birth{'date'} eq 'DateTime' or $$birth{'date'} =~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/
0 0 0 ref $$birth{'date'} eq 'DateTime' or $$birth{'date'} =~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/ or $$birth{'date'} =~ m[^[0-9]{2}/[0-9]{2}/[0-9]{4}$]
175 0 0 0 $$birth{'place'} =~ /^[A-Za-z]{2}$/ and not is_code_fr($$birth{'place'}) or $$birth{'place'} =~ /^(?:[0-9]{5}|) *, *(.+)$/ and is_commune($1)
204 0 0 0 ref $q ne 'HASH' or grep {not /^(?:identification|reachable)$/;} keys %$q
216 0 0 0 ref $rs ne 'ARRAY' || @$rs > 3 || grep({not is_adresse($_);} @$rs)