| blib/lib/App/PerlGlue.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 51 | 35.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 43 | 1 | 0 | 2 | defined $file and length $file |
| 120 | 0 | 0 | 1 | defined $to and $to eq "jsonl" |
| line | l | !l | condition |
|---|---|---|---|
| 13 | 7 | 0 | shift @argv // "help" |
| 71 | 0 | 0 | shift @argv // die("replace requires perl substitution expression\n") |
| 94 | 1 | 0 | shift @argv // die("pick requires file\n") |
| 95 | 1 | 0 | shift @argv // "" |
| 97 | 1 | 0 | shift @argv // "" |
| 101 | 1 | 0 | shift @rows // [] |
| 114 | 1 | 0 | shift @argv // die("convert requires file\n") |
| 124 | 1 | 0 | shift @rows // [] |
| 159 | 0 | 0 | shift @argv // die("template requires file\n") |
| 160 | 0 | 0 | shift @argv // die("template requires template string\n") |
| 164 | 0 | 0 | shift @rows // [] |
| 176 | 0 | 0 | shift @argv // die("rename requires substitution expression\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 15 | 0 | 0 | 7 | $cmd eq "help" or $cmd eq "--help" |
| 0 | 0 | 7 | $cmd eq "help" or $cmd eq "--help" or $cmd eq "-h" | |
| 17 | 2 | 0 | 5 | $cmd eq "version" or $cmd eq "--version" |
| 2 | 0 | 5 | $cmd eq "version" or $cmd eq "--version" or $cmd eq "-v" | |
| 28 | 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" | |
| 138 | 0 | 0 | 0 | defined $file || $a =~ /^\$_\-/ |