| line |
true |
false |
branch |
|
47
|
0 |
28 |
unless -d $directory |
|
76
|
0 |
2 |
if -d $directory |
|
78
|
0 |
2 |
unless mkdir $directory, 448 |
|
91
|
21 |
0 |
@_ % 2 ? : |
|
96
|
1 |
20 |
unless -d $directory |
|
97
|
14 |
6 |
if -f "$directory/1" |
|
102
|
0 |
6 |
unless opendir my $dh, $directory |
|
104
|
24 |
0 |
unless /^[0-9]+$/ |
|
116
|
18 |
28 |
if (ref $class) { } |
|
133
|
0 |
46 |
unless -d $dir and opendir my $dh, $dir |
|
134
|
56 |
292 |
if not /^\d+$|^\./ |
|
139
|
1 |
45 |
if ($args{'skip_empty'}) |
|
143
|
2 |
4 |
if (-f "$dir/$subdir/1") |
|
149
|
0 |
4 |
unless opendir my $dh, "$dir/$subdir" |
|
153
|
0 |
4 |
if (grep /^\d+$/, @entities) |
|
159
|
3 |
1 |
unless -d "$dir/$subdir/$_" |
|
170
|
53 |
0 |
/(.*)/ && $1 ? : |
|
171
|
37 |
9 |
unless $args{'check'} |
|
187
|
1 |
0 |
exists $args{'messages'} ? : |
|
|
0 |
1 |
exists $args{'message'} ? : |
|
190
|
0 |
1 |
unless my $self = $class->new(@_, "access", "r") |
|
194
|
0 |
1 |
unless $locker->lock |
|
221
|
0 |
9 |
unless -d $subdir or mkdir $subdir, 493 |
|
233
|
1 |
0 |
if exists $self->{'MBM_highest_msgnr'} |
|
237
|
0 |
0 |
unless opendir my $dh, $directory |
|
247
|
19 |
10 |
unless $self->{'MBM_keep_index'} |
|
261
|
0 |
17 |
unless opendir my $dh, $dirname |
|
265
|
434 |
51 |
/^(\d+)$/ && -f "$dirname/$1" ? : |
|
275
|
0 |
17 |
unless -d $directory |
|
278
|
0 |
17 |
unless $locker->lock |
|
283
|
17 |
0 |
unless ($index) |
|
285
|
4 |
13 |
if $index |
|
289
|
17 |
0 |
unless ($labels) |
|
291
|
17 |
0 |
if $labels |
|
301
|
94 |
340 |
if $index |
|
311
|
434 |
0 |
$labels ? : |
|
312
|
79 |
355 |
$labref ? : |
|
328
|
0 |
9 |
unless opendir my $dh, $dir |
|
342
|
2 |
9 |
exists $args->{'renumber'} ? : |
|
351
|
0 |
11 |
unless $locker->lock |
|
362
|
264 |
45 |
if ($renumber or not $filename) { } |
|
376
|
11 |
0 |
if $labels |
|
379
|
5 |
6 |
if $index |
|
386
|
0 |
11 |
if not @messages and $self->removeEmpty |