| blib/lib/App/PerlGlue.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 57 | 38.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 2 | 4 | 0 | @argv and $argv[0] eq '--help' || $argv[0] eq '-h' |
| 45 | 1 | 0 | 2 | defined $file and length $file |
| 122 | 0 | 0 | 1 | defined $to and $to eq "jsonl" |
| line | l | !l | condition |
|---|---|---|---|
| 13 | 8 | 0 | shift @argv // "help" |
| 73 | 0 | 0 | shift @argv // die("replace requires perl substitution expression\n") |
| 96 | 1 | 0 | shift @argv // die("pick requires file\n") |
| 97 | 1 | 0 | shift @argv // "" |
| 99 | 1 | 0 | shift @argv // "" |
| 103 | 1 | 0 | shift @rows // [] |
| 116 | 1 | 0 | shift @argv // die("convert requires file\n") |
| 126 | 1 | 0 | shift @rows // [] |
| 161 | 0 | 0 | shift @argv // die("template requires file\n") |
| 162 | 0 | 0 | shift @argv // die("template requires template string\n") |
| 166 | 0 | 0 | shift @rows // [] |
| 178 | 0 | 0 | shift @argv // die("rename requires substitution expression\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 15 | 0 | 0 | 8 | $cmd eq "help" or $cmd eq "--help" |
| 0 | 0 | 8 | $cmd eq "help" or $cmd eq "--help" or $cmd eq "-h" | |
| 17 | 2 | 0 | 6 | $cmd eq "version" or $cmd eq "--version" |
| 2 | 0 | 6 | $cmd eq "version" or $cmd eq "--version" or $cmd eq "-v" | |
| 22 | 1 | 0 | 3 | $argv[0] eq '--help' || $argv[0] eq '-h' |
| 30 | 1 | 0 | 0 | $cmd eq "convert" or $cmd eq "csv" |
| 1 | 0 | 0 | $cmd eq "convert" or $cmd eq "csv" or $cmd eq "from-csv" | |
| 140 | 0 | 0 | 0 | defined $file || $a =~ /^\$_\-/ |