| line |
true |
false |
branch |
|
15
|
0 |
8 |
if $cmd eq "help" or $cmd eq "--help" or $cmd eq "-h" |
|
17
|
0 |
6 |
if ($cmd eq "version" or $cmd eq "--version" or $cmd eq "-v") |
|
22
|
1 |
3 |
if @argv and $argv[0] eq '--help' || $argv[0] eq '-h' |
|
24
|
1 |
4 |
if $cmd eq "upper" |
|
25
|
1 |
3 |
if $cmd eq "lower" |
|
26
|
1 |
2 |
if $cmd eq "lines" |
|
27
|
0 |
2 |
if $cmd eq "where" |
|
28
|
0 |
2 |
if $cmd eq "replace" |
|
29
|
1 |
1 |
if $cmd eq "pick" |
|
30
|
0 |
0 |
if $cmd eq "convert" or $cmd eq "csv" or $cmd eq "from-csv" |
|
31
|
0 |
0 |
if $cmd eq "jsonl" |
|
32
|
0 |
0 |
if $cmd eq "template" |
|
33
|
0 |
0 |
if $cmd eq "rename" |
|
45
|
1 |
2 |
unless defined $file and length $file |
|
46
|
0 |
2 |
unless open my $fh, "<", $file |
|
55
|
1 |
0 |
if ($arg eq '--where') { } |
|
|
0 |
0 |
elsif (not defined $file) { } |
|
|
0 |
0 |
elsif (not defined $expr) { } |
|
62
|
2 |
0 |
if (defined $expr) |
|
64
|
1 |
1 |
unless $ok |
|
88
|
0 |
6 |
if $line eq "" |
|
98
|
0 |
1 |
unless $flag eq "--csv" |
|
108
|
4 |
0 |
defined $idx{$_} ? : |
|
120
|
1 |
0 |
if $a eq "--to" |
|
122
|
0 |
1 |
unless defined $to and $to eq "jsonl" |
|
140
|
0 |
0 |
if ($a eq '--where') { } |
|
|
0 |
0 |
elsif (not defined $file || $a =~ /^\$_\-/) { } |
|
|
0 |
0 |
elsif (not defined $expr) { } |
|
144
|
0 |
0 |
if defined $where |
|
148
|
0 |
0 |
if $line eq "" |
|
150
|
0 |
0 |
if (defined $expr) |
|
152
|
0 |
0 |
unless $ok |
|
170
|
0 |
0 |
defined $obj{$1} ? : |
|
184
|
0 |
0 |
if $new eq $old |
|
185
|
0 |
0 |
if -e $new |
|
186
|
0 |
0 |
unless rename $old, $new |
|
211
|
1 |
0 |
if (exists $usage{$cmd}) |