| line |
true |
false |
branch |
|
45
|
2 |
3 |
if (@{$args;} != 2) |
|
52
|
0 |
5 |
if lc $_ eq 'stdin' |
|
53
|
1 |
4 |
unless (Path::Tiny::path($_)->is_file) |
|
58
|
0 |
2 |
if (not exists $opt->{'outfile'}) |
|
69
|
0 |
2 |
if (lc $args->[0] eq 'stdin') { } |
|
77
|
2 |
0 |
if (lc $opt->{'outfile'} eq 'stdout') { } |
|
87
|
2 |
54 |
if $in_fh->eof and $content eq '' |
|
89
|
54 |
0 |
unless ($in_fh->eof) |
|
92
|
6 |
48 |
if ($line eq '' || $line =~ /^\s+$/ and $content ne '') { } |
|
97
|
3 |
3 |
if ($opt->{'first'}) |
|
102
|
3 |
3 |
if ($opt->{'required'}) |
|
104
|
0 |
9 |
unless exists $info_of->{$name} |
|
109
|
15 |
0 |
if (exists $info_of->{$name}) |