| line |
% |
coverage |
branch |
|
26
|
50 |
T |
F |
if ($opt{'preserve_space_in'}) |
|
29
|
50 |
T |
F |
if ($opt{'encoding'}) { } |
|
37
|
50 |
T |
F |
unless $opt{'load'} |
|
39
|
50 |
T |
F |
if (@ARGV) { } |
|
41
|
50 |
T |
F |
if $opt{'verbose'} |
|
46
|
50 |
T |
F |
if ($opt{'in_place'}) |
|
47
|
50 |
T |
F |
unless (undef, $tempfile) = tempfile('DIR', dirname($file)) |
|
48
|
50 |
T |
F |
unless open PP_OUTPUT, ">$tempfile" |
|
53
|
50 |
T |
F |
if ($t) { } |
|
54
|
50 |
T |
F |
if ($opt{'load'}) |
|
58
|
50 |
T |
F |
if ($opt{'in_place'}) |
|
61
|
50 |
T |
F |
if ($opt{'backup'}) |
|
63
|
0 |
T |
F |
unless rename $file, $backup |
|
65
|
50 |
T |
F |
unless rename $tempfile, $file |
|
66
|
50 |
T |
F |
unless chmod $mode, $file |
|
50 |
T |
F |
if ($mode ne mode($file)) |
|
71
|
0 |
T |
F |
if (defined $tempfile) |
|
72
|
0 |
T |
F |
unless unlink $tempfile |
|
80
|
0 |
T |
F |
if ($opt{'load'}) |
|
93
|
50 |
T |
F |
if ($opt eq '-v' or $opt eq '--verbose') { } |
|
100 |
T |
F |
elsif ($opt eq '-s' or $opt eq '--style') { } |
|
100 |
T |
F |
elsif ($opt =~ /^-i(.*)$/ or $opt =~ /^--in_place(.*)$/) { } |
|
50 |
T |
F |
elsif ($opt eq '-p' or $opt eq '--preserve') { } |
|
100 |
T |
F |
elsif ($opt eq '-e' or $opt eq '--encoding') { } |
|
100 |
T |
F |
elsif ($opt eq '-l' or $opt eq '--load') { } |
|
50 |
T |
F |
elsif ($opt eq '-f' or $opt eq '--files') { } |
|
50 |
T |
F |
elsif ($opt eq '-h' or $opt eq '--help') { } |
|
0 |
T |
F |
elsif ($opt eq '--') { } |
|
94
|
0 |
T |
F |
if $opt{'verbose'} |
|
98
|
50 |
T |
F |
if $opt{'style'} |
|
100
|
50 |
T |
F |
unless $styles{$opt{'style'}} |
|
103
|
100 |
T |
F |
if $opt{'in_place'} |
|
114
|
100 |
T |
F |
if $opt{'encoding'} |
|
118
|
100 |
T |
F |
if $opt{'load'} |
|
141
|
0 |
T |
F |
unless open FILES, "<$file" |
|
151
|
0 |
T |
F |
if ($extension =~ /\*/) { } |