| line |
true |
false |
branch |
|
171
|
80 |
20 |
$d < 10 ? : |
|
177
|
9 |
16 |
if ($sociedad =~ /[KPQS]/i) { } |
|
178
|
3 |
6 |
if $l ne uc $control |
|
180
|
6 |
10 |
if $c != $control and $l ne uc $control |
|
189
|
40 |
202 |
substr('TRWAGMYFPDXBNJZSQVHLCKE', $NIF % 23, 1) eq $DC ? : |
|
253
|
6 |
281 |
defined $args{'vies'} ? : |
|
254
|
1 |
286 |
defined $args{'iso3166'} ? : |
|
256
|
286 |
1 |
if defined $args{'nif'} |
|
266
|
0 |
288 |
unless (defined $nif) |
|
272
|
3 |
285 |
if ($nif =~ /^ES(.*)$/) |
|
290
|
219 |
69 |
if ($nif =~ /^([0-9]{8})([A-Z])$/) { } |
|
|
16 |
53 |
elsif ($nif =~ /^([ABCDEFGHJPQRUVNW])([0-9]{7})([0-9])$/) { } |
|
|
16 |
37 |
elsif ($nif =~ /^([XYZ])([0-9]{7})([A-Z])$/) { } |
|
|
7 |
30 |
elsif ($nif =~ /^([KLM])([0-9]{7})([A-Z])$/) { } |
|
|
9 |
21 |
elsif ($nif =~ /^([SQPK])([0-9]{7})([A-J])$/) { } |
|
296
|
56 |
232 |
if ($self->status) |
|
297
|
5 |
51 |
if $self->VIES |
|
312
|
0 |
5 |
unless ($self->status) |
|
318
|
0 |
5 |
unless (defined $nif and length $nif > 0) |
|
329
|
0 |
5 |
unless ($VatValidation) |
|
335
|
5 |
0 |
unless ($self->vies_check) |
|
340
|
0 |
5 |
if ($@) |