| line |
true |
false |
branch |
|
52
|
0 |
0 |
if ($self->{'_data'}{$k}{'updated'} != $new_data->{$k}{'updated'} or scalar @{$self->{'_data'}{$k}{'content'}} != scalar @{$new_data->{$k}{'content'}}) { }
|
|
|
0 |
0 |
if ($self->{'_data'}{$k}{'updated'} != $new_data->{$k}{'updated'} or scalar @{$self->{'_data'}{$k}{'content'}} != scalar @{$new_data->{$k}{'content'}}) { }
|
|
57
|
0 |
0 |
if $args{'verbose'}
|
|
|
1138 |
1129 |
if $args{'verbose'}
|
|
59
|
0 |
0 |
if $args{'verbose'}
|
|
|
34 |
1071 |
if $args{'verbose'}
|
|
63
|
0 |
0 |
if ($updated)
|
|
|
0 |
0 |
if ($updated)
|
|
75
|
0 |
0 |
if ($list) { }
|
|
|
0 |
0 |
if ($list) { }
|
|
90
|
0 |
2 |
$instance ? :
|
|
|
0 |
0 |
$instance ? :
|
|
121
|
0 |
77 |
unless $args->{$field} and $entry->{$field} and @{$entry->{$field}}
|
|
|
0 |
0 |
unless $args->{$field} and $entry->{$field} and @{$entry->{$field}}
|
|
123
|
7 |
70 |
unless &any(sub {
|
|
185
|
32 |
15 |
&blessed($_[0]) ? :
|
|
186
|
5 |
42 |
unless ($self)
|
|
196
|
15 |
32 |
if (ref $_[0] eq "HASH")
|
|
204
|
132 |
56 |
unless $value
|
|
229
|
1181 |
50 |
unless _name_matches(\@client_name_tokens, $sanctioned_name_tokens)
|
|
233
|
7 |
47 |
unless $matched_args
|
|
237
|
17 |
30 |
unless defined $date_of_birth
|
|
249
|
9 |
48 |
if $checked_dob
|
|
253
|
17 |
4 |
@{$entry->{'dob_epoch'}} || @{$entry->{'dob_year'}} ? :
|
|
254
|
1 |
20 |
@{$entry->{'dob_text'} // [];} ? :
|
|
255
|
4 |
17 |
if ($has_dob_text or $has_no_epoch_or_year)
|
|
272
|
1 |
3 |
unless $sanction_name eq $client_name
|
|
277
|
1 |
2 |
if (@$dob_text)
|
|
296
|
49 |
2 |
if (-e $sanction_file)
|
|
297
|
42 |
0 |
if &Data::Validate::Sanctions::stat($sanction_file)->mtime <= $self->{'last_time'} and $self->{'_data'}
|
|
326
|
1 |
16 |
unless @content
|
|
348
|
8 |
0 |
unless rename $new_sanction_file, $sanction_file
|
|
383
|
146 |
224 |
if &any(sub {
|
|
390
|
18 |
112 |
if $name_matches_count > 1 or $name_matches_count == 1 and $small_tokens_size == 1
|