| line |
true |
false |
branch |
|
45
|
2 |
4 |
if (@{$args;} != 2) |
|
52
|
0 |
7 |
if lc $_ eq 'stdin' |
|
53
|
1 |
6 |
unless (Path::Tiny::path($_)->is_file) |
|
58
|
0 |
3 |
if (not exists $opt->{'outfile'}) |
|
69
|
0 |
3 |
if (lc $args->[0] eq 'stdin') { } |
|
77
|
3 |
0 |
if (lc $opt->{'outfile'} eq 'stdout') { } |
|
87
|
3 |
81 |
if $in_fh->eof and $content eq '' |
|
89
|
81 |
0 |
unless ($in_fh->eof) |
|
92
|
9 |
72 |
if ($line eq '' || $line =~ /^\s+$/ and $content ne '') { } |
|
101
|
5 |
4 |
if (@replace_names == 0) { } |
|
|
3 |
1 |
elsif (@replace_names == 1) { } |
|
113
|
3 |
9 |
if ($header eq $ori_name) { } |