| line |
true |
false |
branch |
|
138
|
0 |
0 |
if $self->srid and not $self->srid =~ /^[A-Z]+(?:[1-9][0-9]*)?(?:-FRNIC)?$/i |
|
139
|
0 |
0 |
if $self->name and not $self->name =~ /^$NOM_PROPRE$/ && is_nom_libre($self->name) |
|
140
|
0 |
0 |
if $self->firstname and not $self->firstname =~ /^$NOM_PROPRE$/ |
|
141
|
0 |
0 |
if $self->org and not is_nom_libre($self->org) |
|
143
|
0 |
0 |
if $self->legal_form and not $self->legal_form =~ /^(?:company|association|other)$/ |
|
144
|
0 |
0 |
if $self->legal_form_other and not is_nom_libre($self->legal_form_other) |
|
145
|
0 |
0 |
if ($self->legal_id_type) |
|
147
|
0 |
0 |
unless $self->legal_id_type =~ /^(?:siren|duns|local)$/ |
|
148
|
0 |
0 |
if $self->legal_id and $self->legal_id_type eq 'sirent' and not $self->legal_id =~ /^[0-9]{9}(?:[0-9]{5})?$/ |
|
152
|
0 |
0 |
if ($jo) |
|
154
|
0 |
0 |
if (ref $jo eq 'HASH' and exists $$jo{'date_declaration'} and exists $$jo{'date_publication'} and exists $$jo{'number'} and exists $$jo{'page'}) { } |
|
156
|
0 |
0 |
unless $$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 |
unless $$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}$/ |
|
158
|
0 |
0 |
unless $$jo{'number'} =~ /^[1-9][0-9]*$/ |
|
159
|
0 |
0 |
unless $$jo{'page'} =~ /^[1-9][0-9]*$/ |
|
166
|
0 |
0 |
if $self->vat and not Net::DRI::Util::xml_is_token($self->vat) |
|
167
|
0 |
0 |
if $self->trademark and not $self->trademark =~ /^[0-9]*[A-Za-z]*[0-9]+$/ |
|
170
|
0 |
0 |
if ($birth) |
|
172
|
0 |
0 |
if (ref $birth eq 'HASH' and exists $$birth{'date'} and exists $$birth{'place'}) { } |
|
174
|
0 |
0 |
unless 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 |
unless $$birth{'place'} =~ /^[A-Za-z]{2}$/ and not is_code_fr($$birth{'place'}) or $$birth{'place'} =~ /^(?:[0-9]{5}|) *, *(.+)$/ and is_commune($1) |
|
182
|
0 |
0 |
$self->cc ? : |
|
185
|
0 |
0 |
if ($self->voice) |
|
187
|
0 |
0 |
unless $self->voice =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/ |
|
188
|
0 |
0 |
if $isccfr and not $self->voice =~ /^\+33\./ |
|
190
|
0 |
0 |
if ($self->fax) |
|
192
|
0 |
0 |
unless $self->fax =~ /^\+[0-9]{1,3}\.[0-9]{1,14}(?:x\d+)?$/ |
|
193
|
0 |
0 |
if $isccfr and not $self->fax =~ /^\+33\./ |
|
195
|
0 |
0 |
if $self->email and not 'Email::Valid'->rfc822($self->email) |
|
199
|
0 |
0 |
if $self->disclose and not $self->disclose =~ /^[ONY]$/i |
|
202
|
0 |
0 |
if (defined $q) |
|
204
|
0 |
0 |
if ref $q ne 'HASH' or grep {not /^(?:identification|reachable)$/;} keys %$q |
|
207
|
0 |
0 |
if @errs |
|
216
|
0 |
0 |
if $rs and ref $rs ne 'ARRAY' || @$rs > 3 || grep({not is_adresse($_);} @$rs) |
|
217
|
0 |
0 |
if $self->city and not is_commune($self->city) |
|
221
|
0 |
0 |
if ($cc) |
|
223
|
0 |
0 |
unless exists $Net::DRI::Util::CCA2{uc $cc} |
|
228
|
0 |
0 |
if ($pc) |
|
230
|
0 |
0 |
if ($isccfr) { } |
|
232
|
0 |
0 |
unless $pc =~ /^[0-9]{5}$/ |
|
235
|
0 |
0 |
unless $pc =~ /^[-0-9A-Za-z ]+$/ |
|
239
|
0 |
0 |
if @errs |
|
247
|
0 |
0 |
if ($what eq 'create' and $pn eq 'EPP') |
|
249
|
0 |
0 |
unless defined $self->srid |