| line |
true |
false |
branch |
|
45
|
0 |
28 |
unless -d $directory |
|
54
|
0 |
0 |
'File::Spec'->file_name_is_absolute($_) ? : |
|
|
28 |
0 |
!defined($_) ? : |
|
65
|
0 |
0 |
'File::Spec'->file_name_is_absolute($_) ? : |
|
|
28 |
0 |
!defined($_) ? : |
|
80
|
0 |
2 |
if -d $directory |
|
82
|
2 |
0 |
if (mkdir $directory, 448) { } |
|
94
|
21 |
0 |
@_ % 2 ? : |
|
99
|
1 |
20 |
unless -d $directory |
|
100
|
14 |
6 |
if -f "$directory/1" |
|
105
|
0 |
6 |
unless opendir DIR, $directory |
|
107
|
24 |
0 |
unless /^\d+$/ |
|
125
|
18 |
28 |
if (ref $class) { } |
|
142
|
0 |
46 |
unless -d $dir and opendir DIR, $dir |
|
144
|
56 |
292 |
if not /^\d+$|^\./ and -d "$dir/$_" |
|
151
|
1 |
45 |
if ($args{'skip_empty'}) |
|
155
|
2 |
4 |
if (-f "$dir/$subdir/1") |
|
161
|
0 |
4 |
unless opendir DIR, "$dir/$subdir" |
|
165
|
0 |
4 |
if (grep /^\d+$/, @entities) |
|
171
|
3 |
1 |
unless -d "$dir/$subdir/$_" |
|
183
|
53 |
0 |
/(.*)/ && $1 ? : |
|
184
|
37 |
9 |
unless $args{'check'} |
|
195
|
0 |
9 |
unless (-d $subdir or mkdir $subdir, 493) |
|
215
|
1 |
0 |
exists $args{'messages'} ? : |
|
|
0 |
1 |
exists $args{'message'} ? : |
|
218
|
0 |
1 |
unless my $self = $class->new(@_, 'access', 'r') |
|
222
|
0 |
1 |
unless -d $directory |
|
225
|
0 |
1 |
unless ($locker->lock) |
|
234
|
0 |
1 |
unless $message->create($filename) |
|
257
|
1 |
0 |
if exists $self->{'MBM_highest_msgnr'} |
|
261
|
0 |
0 |
unless opendir DIR, $directory |
|
273
|
19 |
10 |
unless $self->{'MBM_keep_index'} |
|
274
|
6 |
4 |
if defined $self->{'MBM_index'} |
|
288
|
8 |
21 |
if defined $self->{'MBM_labels'} |
|
301
|
0 |
17 |
unless opendir DIR, $dirname |
|
306
|
434 |
51 |
/^(\d+)$/ && -f "$dirname/$1" ? : |
|
320
|
0 |
17 |
unless -d $directory |
|
323
|
0 |
17 |
unless $locker->lock |
|
328
|
17 |
0 |
unless ($index) |
|
330
|
4 |
13 |
if $index |
|
334
|
17 |
0 |
unless ($labels) |
|
336
|
17 |
0 |
if $labels |
|
348
|
94 |
340 |
if $index |
|
358
|
434 |
0 |
$labels ? : |
|
359
|
79 |
355 |
$labref ? : |
|
377
|
0 |
9 |
unless opendir DIR, $dir |
|
400
|
0 |
11 |
unless $locker->lock |
|
403
|
2 |
9 |
exists $args->{'renumber'} ? : |
|
413
|
264 |
45 |
if ($renumber or not $filename) { } |
|
427
|
11 |
0 |
if $labels |
|
430
|
5 |
6 |
if $index |
|
437
|
0 |
0 |
if (not @messages and $self->{'MB_remove_empty'}) |