| line |
true |
false |
branch |
|
27
|
737 |
0 |
if $args->{'filename'} |
|
42
|
45 |
181 |
if $self->isModified |
|
46
|
181 |
0 |
if ($filename and -r $filename) |
|
47
|
181 |
0 |
if (open my $in, '<:raw', $filename) |
|
69
|
975 |
2849 |
@_ ? : |
|
81
|
0 |
0 |
unless ($self->isModified) |
|
83
|
0 |
0 |
if (defined $filename) |
|
85
|
0 |
0 |
if defined $size |
|
99
|
24 |
0 |
if $filename |
|
116
|
0 |
287 |
unless ($parser) |
|
130
|
127 |
279 |
unless $head->isDelayed |
|
135
|
0 |
279 |
unless my $parser = $self->parser |
|
152
|
142 |
8 |
unless $body->isDelayed |
|
155
|
0 |
8 |
unless my $parser = $self->parser |
|
157
|
2 |
6 |
if ($head->isDelayed) { } |
|
159
|
2 |
0 |
if (defined $head) { } |
|
176
|
0 |
8 |
unless (defined $newbody) |
|
192
|
91 |
225 |
if $filename eq $old and not $self->isModified |
|
198
|
0 |
225 |
unless $newfile |
|
209
|
181 |
44 |
if $old |
|
211
|
0 |
225 |
unless move($new, $filename) |