| line |
true |
false |
branch |
|
18
|
3 |
0 |
if (-e $file and open my $FH, '<', $file) { } |
|
19
|
0 |
3 |
if $$opts{'Flock'} |
|
21
|
0 |
3 |
if $$opts{'Flock'} |
|
26
|
1 |
2 |
if (wantarray) { } |
|
27
|
1 |
0 |
if ($$opts{'Chomp'}) |
|
34
|
1 |
1 |
if ($$opts{'Chomp'}) |
|
52
|
0 |
5 |
if ($$opts{'Append'}) |
|
57
|
5 |
0 |
if (open my $FH, $mode, $file) |
|
58
|
2 |
3 |
if $$opts{'Flock'} |
|
59
|
0 |
4 |
unless (print $FH $str) |
|
62
|
0 |
4 |
if ($$opts{'Newline'}) |
|
63
|
0 |
0 |
unless (print $FH "\n") |
|
67
|
1 |
3 |
if $$opts{'Flock'} |
|
68
|
4 |
0 |
if (close $FH) |
|
83
|
0 |
0 |
if ($$opts{'Append'}) |
|
88
|
0 |
0 |
if (open my $IN, '<', $source_file) |
|
89
|
0 |
0 |
if $$opts{'Flock'} |
|
91
|
0 |
0 |
if (open my $OUT, $mode, $dest_file) |
|
92
|
0 |
0 |
if $$opts{'Flock'} |
|
94
|
0 |
0 |
unless (print $OUT $line) |
|
98
|
0 |
0 |
if $$opts{'Flock'} |
|
99
|
0 |
0 |
if (close $OUT) |
|
103
|
0 |
0 |
if $$opts{'Flock'} |
|
108
|
0 |
0 |
if ($status) |