| line |
true |
false |
branch |
|
33
|
16 |
0 |
if (opendir my $dh, $storage_dir) |
|
34
|
0 |
32 |
if /\.yaml$/u |
|
38
|
0 |
16 |
if (@yaml_files) |
|
40
|
0 |
0 |
unless ($archive_result->{'success'}) |
|
105
|
0 |
0 |
unless (mkdir $archive_dir) |
|
114
|
0 |
0 |
unless (opendir $dh, $self->{'storage_dir'}) |
|
121
|
0 |
0 |
if /\.yaml$/u |
|
128
|
0 |
0 |
unless (rename $old_path, $new_path) |
|
142
|
0 |
26 |
unless $user_id |
|
144
|
0 |
26 |
unless $initial_record |
|
158
|
0 |
26 |
if ($@) |
|
172
|
31 |
22 |
unless -f $user_file |
|
182
|
0 |
22 |
if ($@) |
|
210
|
0 |
29 |
unless -f $user_file |
|
218
|
0 |
29 |
if $@ |
|
230
|
0 |
29 |
if ($@) |
|
242
|
0 |
6 |
unless opendir my $dh, $self->{'storage_dir'} |
|
255
|
6 |
14 |
if $@ |
|
260
|
6 |
8 |
if (ref $filters eq "HASH" and exists $filters->{'or_groups'}) |
|
270
|
3 |
3 |
if ($op eq '=') { } |
|
|
3 |
0 |
elsif ($op eq ':') { } |
|
|
0 |
0 |
elsif ($op eq '!') { } |
|
|
0 |
0 |
elsif ($op eq '>') { } |
|
|
0 |
0 |
elsif ($op eq '<') { } |
|
271
|
2 |
1 |
unless $user_value eq $value |
|
273
|
2 |
1 |
unless $user_value =~ /\Q$value\E/iu |
|
275
|
0 |
0 |
if $user_value =~ /\Q$value\E/iu |
|
277
|
0 |
0 |
unless $user_value gt $value |
|
279
|
0 |
0 |
unless $user_value lt $value |
|
283
|
2 |
4 |
if $group_match |
|
284
|
2 |
4 |
if $match |
|
288
|
10 |
4 |
if $match |
|
303
|
0 |
2 |
unless -f $user_file |
|
305
|
0 |
2 |
unless unlink $user_file |