| 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' |
| 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) |