| line |
true |
false |
branch |
|
125
|
0 |
1 |
$max_results > 1000 ? : |
|
137
|
0 |
1 |
defined $proxy ? : |
|
157
|
0 |
4 |
if defined $response |
|
174
|
0 |
0 |
unless defined $self->{'credentials'} |
|
183
|
0 |
0 |
if ($response->content_type =~ m[^application/json]) { } |
|
191
|
0 |
0 |
if (&Switch::case(200)) |
|
196
|
0 |
0 |
if (&Switch::case(401)) { } |
|
209
|
2 |
2 |
if (not exists $parameters->{'q'}) { } |
|
224
|
4 |
0 |
if ($self->{'debug_mode'}) |
|
228
|
0 |
0 |
if (not defined $self->{'token_expiration'} or $self->{'token_expiration'} < time) |
|
230
|
0 |
0 |
if $err |
|
236
|
0 |
0 |
if (&Switch::case([200, 404])) |
|
239
|
0 |
0 |
if (&Switch::case(301)) |
|
242
|
0 |
0 |
if (&Switch::case([414, 429, 401, 403, 503])) { } |
|
264
|
0 |
4 |
if defined $desired_fields and $desired_fields ne 'all' |
|
265
|
2 |
2 |
if defined $criteria |
|
273
|
0 |
0 |
if (defined $desired_fields) { } |
|
284
|
0 |
0 |
ref $desired_fields eq 'ARRAY' ? : |
|
287
|
0 |
0 |
if (exists $useful_fields_aliases->{$desired_field}) |
|
288
|
0 |
0 |
if (ref $useful_fields_aliases->{$desired_field} eq 'ARRAY') { } |
|
303
|
0 |
13 |
unless defined $self->{'current_endpoint'} |
|
306
|
1 |
12 |
if (exists $useful_fields_aliases->{$field_name}) |
|
307
|
0 |
1 |
if (ref $useful_fields_aliases->{$field_name} eq 'ARRAY') |
|
313
|
6 |
7 |
if ($search_mode eq 'aproximate') |
|
320
|
2 |
4 |
if &any(sub {
$_ eq $field_name;
}
, @{$$historized_fields{$self->{'current_endpoint'}};}) |
|
332
|
5 |
2 |
if ($search_mode eq 'exact') { } |
|
|
2 |
0 |
elsif ($search_mode eq 'begin') { } |
|
339
|
5 |
2 |
if &any(sub {
$_ eq $field_name;
}
, @{$$historized_fields{$self->{'current_endpoint'}};}) |
|
349
|
0 |
2 |
if (&Switch::case('siren')) |
|
350
|
2 |
0 |
if (&Switch::case('siret')) { } |
|
360
|
0 |
1 |
unless $siren_number =~ /^\d{${\9;}}$/ |
|
372
|
0 |
0 |
unless $siren_number =~ /^\d{${\3;},${\9;}}$/ |
|
384
|
0 |
1 |
unless $siret_number =~ /^\d{${\14;}}$/ |
|
396
|
0 |
0 |
unless $siren_number =~ /^\d{${\9;}}$/ |
|
408
|
0 |
0 |
unless $siret_number =~ /^\d{${\3;},${\14;}}$/ |