| line |
true |
false |
branch |
|
45
|
0 |
946 |
$size > 100000 ? : |
|
58
|
39 |
10 |
if (-e $filename) { } |
|
|
9 |
1 |
elsif ($args->{'create'} and $class->create($args->{'folder'}, %$args)) { } |
|
71
|
48 |
0 |
if ($lockfile eq "--") |
|
74
|
48 |
0 |
$extension =~ /^\./ ? : |
|
|
0 |
48 |
file_name_is_absolute($extension) ? : |
|
83
|
0 |
48 |
unless $locker->lock |
|
86
|
0 |
48 |
if ($self->writable and not -w $filename) |
|
92
|
39 |
9 |
if $self->access =~ /r/ |
|
104
|
0 |
11 |
if -f $filename |
|
107
|
0 |
11 |
if (-f $dir and defined $subext) |
|
112
|
0 |
11 |
unless -d $dir or mkdir $dir, 493 |
|
115
|
1 |
10 |
if -d $filename and defined $subext |
|
118
|
0 |
11 |
unless open my $create, ">:raw", $filename |
|
122
|
0 |
11 |
unless $create->close |
|
132
|
0 |
0 |
@_ % 2 ? : |
|
134
|
0 |
0 |
unless $name ||= $args{'folder'} |
|
146
|
0 |
0 |
$self->isModified ? : |
|
156
|
38 |
11 |
if (my $parser = delete $self->{'MBF_parser'}) |
|
169
|
1 |
0 |
exists $args{'messages'} ? : |
|
|
0 |
1 |
exists $args{'message'} ? : |
|
172
|
0 |
1 |
unless my $folder = $class->new("lock_type", "NONE", @_, "access", "w+") |
|
176
|
0 |
1 |
unless open my $out, ">>", $filename |
|
183
|
1 |
0 |
$msg->can('clone') ? : |
|
|
0 |
1 |
$msg->isa($msgtype) ? : |
|
189
|
0 |
1 |
unless $out->close and $ok |
|
199
|
61 |
39 |
if defined $self->{'MBF_parser'} |
|
203
|
22 |
17 |
if $mode eq "rw" or $mode eq "a" |
|
232
|
0 |
40 |
unless my $parser = $self->parser |
|
236
|
0 |
40 |
if -d $filename |
|
238
|
1 |
39 |
if (my $last = $self->message(-1)) |
|
248
|
40 |
1264 |
unless $message->readFromParser($parser) |
|
260
|
39 |
40 |
if (@options) |
|
272
|
0 |
1 |
unless move($dir, $dir . $extension) |
|
289
|
0 |
14 |
if (not @{$args->{'messages'};} and $self->removeEmpty) |
|
290
|
0 |
0 |
unless unlink $filename |
|
295
|
5 |
9 |
exists $args->{'policy'} ? : |
|
298
|
9 |
0 |
$self->_write_replace($args) ? : |
|
|
1 |
9 |
$policy eq 'REPLACE' ? : |
|
|
4 |
10 |
$policy eq 'INPLACE' ? : |
|
|
0 |
14 |
!(-e $filename) ? : |
|
305
|
0 |
14 |
unless $success |
|
316
|
0 |
0 |
unless open my $new, ">:raw", $filename |
|
321
|
0 |
0 |
unless $new->close |
|
338
|
0 |
10 |
unless open my $new, ">:raw", $tmpnew |
|
339
|
0 |
10 |
unless open my $old, "<:raw", $filename |
|
348
|
35 |
181 |
if ($message->isModified) |
|
350
|
0 |
35 |
if defined $oldbegin |
|
362
|
0 |
181 |
unless $size == $need |
|
367
|
0 |
181 |
$Mail::Message::crlf_platform ? : |
|
374
|
0 |
10 |
unless $old->close and $ok |
|
377
|
0 |
10 |
if ($windows) |
|
385
|
0 |
10 |
unless (move($tmpnew, $filename)) |
|
406
|
3 |
84 |
if $next->isModified or $next->seqnr != $msgnr++ |
|
411
|
0 |
4 |
if (@messages == 0 and $msgnr == $self->messages) |
|
418
|
0 |
4 |
$^O eq 'MSWin32' ? : |
|
420
|
0 |
4 |
unless open my $old, $mode, $filename |
|
424
|
3 |
1 |
defined $last ? : |
|
429
|
0 |
4 |
unless ($old->truncate($end)) |
|
435
|
1 |
3 |
unless (@messages) |
|
437
|
0 |
1 |
unless $old->close |
|
454
|
0 |
3 |
unless $old->close |
|
463
|
0 |
0 |
if substr($name, 0, Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762.
) |