| line |
true |
false |
branch |
|
31
|
737 |
0 |
if $args->{'filename'} |
|
40
|
975 |
3120 |
if (@_) { } |
|
52
|
45 |
181 |
if $self->isModified |
|
56
|
181 |
0 |
if ($filename and -r $filename) |
|
57
|
181 |
0 |
if (open my $in, "<:raw", $filename) |
|
79
|
0 |
0 |
unless ($self->isModified) |
|
81
|
0 |
0 |
if (defined $filename) |
|
83
|
0 |
0 |
if defined $size |
|
95
|
24 |
0 |
if $filename |
|
114
|
127 |
281 |
unless $head->isDelayed |
|
119
|
0 |
281 |
unless my $parser = $self->parser |
|
134
|
142 |
8 |
unless $body->isDelayed |
|
140
|
0 |
8 |
if ($head->isDelayed) { } |
|
141
|
0 |
0 |
unless $head = $self->readHead($parser) |
|
152
|
0 |
8 |
unless my $newbody = $self->readBody($parser, $head) |
|
165
|
91 |
225 |
if $filename eq $old and not $self->isModified |
|
170
|
0 |
225 |
unless open my $newfh, ">:raw", $new |
|
176
|
181 |
44 |
if $old |
|
178
|
0 |
225 |
unless move($new, $filename) |