Branch Coverage

blib/lib/API/INSEE/Sirene.pm
Criterion Covered Total %
branch 26 68 38.2


line true false branch
127 0 1 $max_results > 1000 ? :
139 0 1 defined $proxy ? :
159 0 4 if defined $response
176 0 0 unless defined $self->{'credentials'}
186 0 0 if (&Switch::case(200))
191 0 0 if (&Switch::case(401)) { }
204 2 2 if (not exists $parameters->{'q'}) { }
219 4 0 if ($self->{'debug_mode'})
223 0 0 if (not defined $self->{'token_expiration'} or $self->{'token_expiration'} < time)
225 0 0 if $err
231 0 0 if (&Switch::case(200) or 404)
235 0 0 if (&Switch::case(301))
238 0 0 if (&Switch::case(414) or 429 or 401 or 403 or 503) { }
260 0 4 if defined $desired_fields and $desired_fields ne 'all'
261 2 2 if defined $criteria
269 0 0 if (defined $desired_fields) { }
280 0 0 ref $desired_fields eq 'ARRAY' ? :
283 0 0 if (exists $useful_fields_aliases->{$desired_field})
284 0 0 if (ref $useful_fields_aliases->{$desired_field} eq 'ARRAY') { }
299 0 13 unless defined $self->{'current_endpoint'}
302 1 12 if (exists $useful_fields_aliases->{$field_name})
303 0 1 if (ref $useful_fields_aliases->{$field_name} eq 'ARRAY')
309 6 7 if ($search_mode eq 'aproximate')
316 2 4 if &any(sub { $_ eq $field_name; } , @{$$historized_fields{$self->{'current_endpoint'}};})
328 5 2 if ($search_mode eq 'exact') { }
2 0 elsif ($search_mode eq 'begin') { }
335 5 2 if &any(sub { $_ eq $field_name; } , @{$$historized_fields{$self->{'current_endpoint'}};})
345 0 2 if (&Switch::case('siren'))
346 2 0 if (&Switch::case('siret')) { }
356 0 1 unless $siren_number =~ /^\d{${\9;}}$/
368 0 0 unless $siren_number =~ /^\d{${\3;},${\9;}}$/
380 0 1 unless $siret_number =~ /^\d{${\14;}}$/
392 0 0 unless $siren_number =~ /^\d{${\9;}}$/
404 0 0 unless $siret_number =~ /^\d{${\3;},${\14;}}$/