| line |
true |
false |
branch |
|
47
|
0 |
946 |
$size > 100000 ? : |
|
56
|
0 |
49 |
unless defined $self->SUPER::init($args) |
|
67
|
39 |
10 |
if (-e $filename) { } |
|
|
9 |
1 |
elsif ($args->{'create'} and $class->create($args->{'folder'}, %$args)) { } |
|
82
|
48 |
0 |
if ($lockfile eq "--") |
|
87
|
48 |
0 |
$extension =~ /^\./ ? : |
|
|
0 |
48 |
'File::Spec'->file_name_is_absolute($extension) ? : |
|
94
|
0 |
48 |
unless ($locker->lock) |
|
101
|
0 |
48 |
if ($self->writable and not -w $filename) |
|
108
|
39 |
0 |
$self->parser ? : |
|
|
9 |
39 |
!($self->{'MB_access'} =~ /r/) ? : |
|
121
|
0 |
11 |
if -f $filename |
|
124
|
0 |
11 |
if (-f $dir and defined $subext) |
|
129
|
0 |
11 |
unless -d $dir or mkdir $dir, 493 |
|
132
|
1 |
10 |
if -d $filename and defined $subext |
|
136
|
0 |
11 |
unless ($create) |
|
142
|
0 |
11 |
unless $create->close |
|
148
|
0 |
0 |
@_ % 2 ? : |
|
150
|
0 |
0 |
unless $name ||= $args{'folder'} |
|
162
|
0 |
0 |
$self->isModified ? : |
|
172
|
38 |
11 |
if (my $parser = delete $self->{'MBF_parser'}) |
|
184
|
1 |
0 |
exists $args{'messages'} ? : |
|
|
0 |
1 |
exists $args{'message'} ? : |
|
187
|
0 |
1 |
unless my $folder = $class->new("lock_type", "NONE", @_, "access", "w+") |
|
193
|
0 |
1 |
unless ($out) |
|
202
|
1 |
0 |
$msg->can('clone') ? : |
|
|
0 |
1 |
$msg->isa($msgtype) ? : |
|
212
|
0 |
1 |
unless $out->close and $ok |
|
230
|
61 |
39 |
if defined $self->{'MBF_parser'} |
|
235
|
24 |
15 |
if $mode eq "rw" or $mode eq "a" |
|
243
|
0 |
39 |
unless my $parser = $self->{'MBF_parser'} = "Mail::Box::Parser"->new("filename", $source, "mode", $mode, "trusted", $self->{'MB_trusted'}, "fix_header_errors", $self->{'MB_fix_headers'}, $self->logSettings) |
|
268
|
0 |
40 |
unless my $parser = $self->parser |
|
272
|
0 |
40 |
if -d $filename |
|
274
|
1 |
39 |
if (my $last = $self->message(-1)) |
|
284
|
40 |
1264 |
unless $message->readFromParser($parser) |
|
289
|
30 |
10 |
if $count |
|
298
|
39 |
40 |
if (@options) |
|
309
|
0 |
1 |
unless move($dir, $dir . $extension) |
|
325
|
0 |
0 |
if (not @{$args->{'messages'};} and $self->{'MB_remove_empty'}) |
|
326
|
0 |
0 |
unless unlink $filename |
|
331
|
5 |
9 |
exists $args->{'policy'} ? : |
|
334
|
9 |
0 |
$self->_write_replace($args) ? : |
|
|
1 |
9 |
$policy eq 'REPLACE' ? : |
|
|
4 |
10 |
$policy eq 'INPLACE' ? : |
|
|
0 |
14 |
!(-e $filename) ? : |
|
341
|
0 |
14 |
unless ($success) |
|
355
|
0 |
0 |
unless defined $new |
|
360
|
0 |
0 |
unless $new->close |
|
378
|
0 |
10 |
unless my $new = "IO::File"->new($tmpnew, "w") |
|
381
|
0 |
10 |
unless my $old = "IO::File"->new($filename, "r") |
|
391
|
35 |
181 |
if ($message->isModified) |
|
393
|
0 |
35 |
if defined $oldbegin |
|
406
|
0 |
181 |
unless $size == $need |
|
411
|
0 |
181 |
$Mail::Message::crlf_platform ? : |
|
418
|
0 |
10 |
unless $old->close and $ok |
|
421
|
0 |
10 |
if ($windows) |
|
429
|
0 |
10 |
unless (move($tmpnew, $filename)) |
|
453
|
3 |
84 |
if $next->isModified or $next->seqnr != $msgnr++ |
|
458
|
0 |
4 |
if (@messages == 0 and $msgnr == $self->messages) |
|
465
|
0 |
4 |
$^O eq 'MSWin32' ? : |
|
467
|
0 |
4 |
unless my $old = "IO::File"->new($filename, $mode) |
|
471
|
3 |
1 |
defined $last ? : |
|
476
|
0 |
4 |
unless ($old->truncate($end)) |
|
482
|
1 |
3 |
unless (@messages) |
|
484
|
0 |
1 |
unless $old->close |
|
501
|
0 |
3 |
unless $old->close |
|
512
|
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.26.1/B/Deparse.pm line 5018. |