| line |
true |
false |
branch |
|
15
|
0 |
7 |
if $cmd eq "help" or $cmd eq "--help" or $cmd eq "-h" |
|
17
|
0 |
5 |
if ($cmd eq "version" or $cmd eq "--version" or $cmd eq "-v") |
|
22
|
1 |
4 |
if $cmd eq "upper" |
|
23
|
1 |
3 |
if $cmd eq "lower" |
|
24
|
1 |
2 |
if $cmd eq "lines" |
|
25
|
0 |
2 |
if $cmd eq "where" |
|
26
|
0 |
2 |
if $cmd eq "replace" |
|
27
|
1 |
1 |
if $cmd eq "pick" |
|
28
|
0 |
0 |
if $cmd eq "convert" or $cmd eq "csv" or $cmd eq "from-csv" |
|
29
|
0 |
0 |
if $cmd eq "jsonl" |
|
30
|
0 |
0 |
if $cmd eq "template" |
|
31
|
0 |
0 |
if $cmd eq "rename" |
|
43
|
1 |
2 |
unless defined $file and length $file |
|
44
|
0 |
2 |
unless open my $fh, "<", $file |
|
53
|
1 |
0 |
if ($arg eq '--where') { } |
|
|
0 |
0 |
elsif (not defined $file) { } |
|
|
0 |
0 |
elsif (not defined $expr) { } |
|
60
|
2 |
0 |
if (defined $expr) |
|
62
|
1 |
1 |
unless $ok |
|
86
|
0 |
6 |
if $line eq "" |
|
96
|
0 |
1 |
unless $flag eq "--csv" |
|
106
|
4 |
0 |
defined $idx{$_} ? : |
|
118
|
1 |
0 |
if $a eq "--to" |
|
120
|
0 |
1 |
unless defined $to and $to eq "jsonl" |
|
138
|
0 |
0 |
if ($a eq '--where') { } |
|
|
0 |
0 |
elsif (not defined $file || $a =~ /^\$_\-/) { } |
|
|
0 |
0 |
elsif (not defined $expr) { } |
|
142
|
0 |
0 |
if defined $where |
|
146
|
0 |
0 |
if $line eq "" |
|
148
|
0 |
0 |
if (defined $expr) |
|
150
|
0 |
0 |
unless $ok |
|
168
|
0 |
0 |
defined $obj{$1} ? : |
|
182
|
0 |
0 |
if $new eq $old |
|
183
|
0 |
0 |
if -e $new |
|
184
|
0 |
0 |
unless rename $old, $new |