| line |
true |
false |
branch |
|
41
|
0 |
7 |
if exists $args->{'locker'} or defined $args->{'lock_type'} and $args->{'lock_type'} ne 'NONE' |
|
47
|
0 |
7 |
unless $self->SUPER::init($args) |
|
49
|
0 |
7 |
if $args->{'accept_new'} |
|
60
|
0 |
0 |
if ($class->createDirs($directory)) { } |
|
72
|
5 |
0 |
@_ % 2 ? : |
|
86
|
0 |
0 |
if (ref $class) { } |
|
103
|
0 |
0 |
unless -d $dir and opendir DIR, $dir |
|
107
|
0 |
0 |
if $d =~ /^(new|tmp|cur|\.\.?)$/ |
|
110
|
0 |
0 |
if -d $dir and -r _ |
|
118
|
0 |
0 |
if $args{'skip_empty'} |
|
122
|
0 |
0 |
if /(.*)/ |
|
123
|
0 |
0 |
unless $args{'check'} |
|
145
|
0 |
2 |
$is_native ? : |
|
152
|
2 |
0 |
if ($coerced->create($tmp) and $coerced->create($new)) { } |
|
156
|
2 |
0 |
unless $is_native |
|
166
|
0 |
0 |
unless -d $dir or mkdir $dir |
|
170
|
0 |
0 |
unless -d $tmp or mkdir $tmp |
|
174
|
0 |
0 |
unless -d $new or mkdir $new |
|
178
|
0 |
0 |
unless -d $cur or mkdir $cur |
|
187
|
0 |
0 |
unless -d $dir |
|
191
|
0 |
0 |
unless -d $subdir |
|
193
|
0 |
0 |
unless opendir DIR, $subdir |
|
197
|
0 |
0 |
if defined $first |
|
200
|
0 |
0 |
unless opendir DIR, $dir |
|
202
|
0 |
0 |
if $entry =~ /^(?:tmp|cur|new|bulletin(?:time|lock)|seriallock|\..?)$/ |
|
223
|
0 |
14 |
unless opendir DIR, $dirname |
|
226
|
0 |
14 |
if (${^TAINT}) { } |
|
228
|
0 |
0 |
/^([0-9][\w.:,=\-]+)$/ && -f "$dirname/$1" ? : |
|
254
|
0 |
7 |
unless -d $directory |
|
278
|
303 |
0 |
if $body |
|
308
|
0 |
5 |
unless -d $tmpdir or mkdir $tmpdir |
|
312
|
191 |
1 |
unless $message->isModified |
|
318
|
0 |
1 |
unless open my $new, '>', $newtmp |
|
325
|
0 |
1 |
unless move($newtmp, $filename) |
|
332
|
0 |
0 |
if (not @messages and $self->{'MB_remove_empty'}) |
|
350
|
1 |
0 |
exists $args{'messages'} ? : |
|
|
0 |
1 |
exists $args{'message'} ? : |
|
355
|
0 |
1 |
unless -d $directory |
|
358
|
0 |
1 |
unless -d $tmpdir or mkdir $tmpdir |
|
367
|
1 |
0 |
if ($is_native) { } |
|
380
|
1 |
0 |
if ($coerced->create($tmp) and $coerced->create($new)) { } |