| line |
true |
false |
branch |
|
23
|
2 |
15 |
unless ($format =~ /^(csv|tsv)$/u) |
|
35
|
3 |
12 |
$format eq 'csv' ? : |
|
42
|
0 |
15 |
unless ($csv) |
|
60
|
0 |
15 |
if (-f $user_file) |
|
63
|
0 |
0 |
if ($fh) |
|
68
|
0 |
0 |
if $line =~ /\S/u |
|
73
|
0 |
0 |
if ($data_count > 0) |
|
75
|
0 |
0 |
unless ($archive_result->{'success'}) |
|
88
|
0 |
15 |
unless ($storage_ok) |
|
122
|
3 |
14 |
$format eq 'csv' ? : |
|
129
|
0 |
17 |
unless $csv |
|
163
|
0 |
15 |
if -f $user_file |
|
166
|
0 |
15 |
unless open my $fh, ">:encoding(UTF-8)", $user_file |
|
171
|
15 |
0 |
if ($self->{'csv'}->print($fh, \@headers)) { } |
|
195
|
0 |
0 |
unless (rename $user_file, $archive_file) |
|
215
|
0 |
17 |
unless $user_id |
|
217
|
0 |
17 |
unless $initial_record |
|
230
|
0 |
17 |
unless open my $fh, ">>:encoding(UTF-8)", $user_file |
|
234
|
0 |
17 |
if ($write_header) |
|
242
|
17 |
0 |
if ($self->{'csv'}->print($fh, \@row)) { } |
|
258
|
0 |
40 |
unless open my $fh, "<:encoding(UTF-8)", $user_file |
|
268
|
40 |
0 |
$self->{'csv'}->parse($header) ? : |
|
273
|
28 |
45 |
unless $line |
|
281
|
19 |
26 |
if ($user{'user_id'} eq $user_id) |
|
313
|
0 |
20 |
unless open my $fh_in, "<:encoding(UTF-8)", $user_file |
|
334
|
20 |
21 |
if ($user{'user_id'} eq $user_id) |
|
349
|
41 |
0 |
if ($self->{'csv'}->combine(@row)) |
|
357
|
0 |
20 |
unless $found |
|
360
|
0 |
20 |
unless open my $fh_out, ">:encoding(UTF-8)", $user_file |
|
377
|
0 |
4 |
unless open my $fh, "<:encoding(UTF-8)", $user_file |
|
390
|
5 |
20 |
unless $line |
|
399
|
9 |
11 |
unless $user{'user_id'} |
|
404
|
3 |
8 |
if (ref $filters eq "HASH" and exists $filters->{'or_groups'}) |
|
414
|
3 |
0 |
if ($op eq '=') { } |
|
|
0 |
0 |
elsif ($op eq ':') { } |
|
|
0 |
0 |
elsif ($op eq '!') { } |
|
|
0 |
0 |
elsif ($op eq '>') { } |
|
|
0 |
0 |
elsif ($op eq '<') { } |
|
415
|
2 |
1 |
unless $user_value eq $value |
|
417
|
0 |
0 |
unless $user_value =~ /\Q$value\E/iu |
|
419
|
0 |
0 |
if $user_value =~ /\Q$value\E/iu |
|
421
|
0 |
0 |
unless $user_value gt $value |
|
423
|
0 |
0 |
unless $user_value lt $value |
|
427
|
1 |
2 |
if $group_match |
|
428
|
1 |
2 |
if $match |
|
432
|
9 |
2 |
if $match |
|
450
|
0 |
2 |
unless open my $fh_in, "<:encoding(UTF-8)", $user_file |
|
471
|
7 |
2 |
if ($user{'user_id'} ne $user_id) { } |
|
480
|
0 |
2 |
unless $found |
|
483
|
0 |
2 |
unless open my $fh_out, ">:encoding(UTF-8)", $user_file |