| line |
true |
false |
branch |
|
35
|
0 |
5 |
if $storage eq "redis"
|
|
59
|
0 |
0 |
if (not $new_data->{$k}{'error'} and $self->{'_data'}{$k}{'error'})
|
|
64
|
0 |
0 |
if ($new_data->{$k}{'error'}) { }
|
|
|
0 |
0 |
elsif ($self->{'_data'}{$k}{'updated'} != $new_data->{$k}{'updated'} or scalar @{$self->{'_data'}{$k}{'content'}} != scalar @{$new_data->{$k}{'content'}}) { }
|
|
71
|
0 |
0 |
if $args{'verbose'}
|
|
75
|
0 |
0 |
if $args{'verbose'}
|
|
79
|
0 |
0 |
if ($updated)
|
|
91
|
0 |
0 |
if ($list) { }
|
|
107
|
0 |
7 |
$instance ? :
|
|
126
|
0 |
0 |
unless $self->{'_data'}
|
|
146
|
0 |
0 |
unless $args->{$field} and $entry->{$field} and @{$entry->{$field}}
|
|
148
|
0 |
0 |
unless &any(sub {
|
|
213
|
0 |
14 |
&blessed($_[0]) ? :
|
|
214
|
5 |
9 |
unless ($self)
|
|
224
|
0 |
14 |
if (ref $_[0] eq "HASH")
|
|
232
|
56 |
0 |
unless $value
|
|
257
|
129 |
15 |
unless _name_matches(\@client_name_tokens, $sanctioned_name_tokens)
|
|
261
|
0 |
18 |
unless $matched_args
|
|
265
|
5 |
13 |
unless defined $date_of_birth
|
|
277
|
2 |
23 |
if $checked_dob
|
|
281
|
10 |
1 |
@{$entry->{'dob_epoch'}} || @{$entry->{'dob_year'}} ? :
|
|
282
|
0 |
11 |
@{$entry->{'dob_text'} // [];} ? :
|
|
283
|
1 |
10 |
if ($has_dob_text or $has_no_epoch_or_year)
|
|
300
|
0 |
1 |
unless $sanction_name eq $client_name
|
|
305
|
0 |
1 |
if (@$dob_text)
|
|
324
|
14 |
0 |
if (-e $sanction_file)
|
|
325
|
9 |
0 |
if &Data::Validate::Sanctions::stat($sanction_file)->mtime <= $self->{'last_time'} and $self->{'_data'}
|
|
377
|
0 |
0 |
unless rename $new_sanction_file, $sanction_file
|
|
412
|
160 |
261 |
if &any(sub {
|
|
419
|
15 |
129 |
if $name_matches_count > 1 or $name_matches_count == 1 and $small_tokens_size == 1
|