| bin/remperl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 37 | 59.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 96 | 0 | 46 | 4 | not $arg =~ /=/u and $long_val{$arg} |
| 46 | 0 | 4 | not $arg =~ /=/u and $long_val{$arg} and @ARGV | |
| 212 | 40 | 2 | 0 | defined $stdin_file and defined $stdin_str |
| 254 | 42 | 0 | 0 | defined $tmpfile_mode and not $tmpfile_mode =~ /^(auto|linux|perl|named|off)$/u |
| 294 | 18 | 0 | 3 | $rc and defined $msg |
| 18 | 1 | 2 | $rc and defined $msg and length $msg |
| line | l | !l | condition |
|---|---|---|---|
| 180 | 43 | 0 | shift @ARGV // die("remperl: --pipe-cmd requires a command argument\n") |
| 185 | 0 | 0 | shift @ARGV // die("remperl: missing host argument\n") |
| 203 | 24 | 0 | shift @ARGV // die("remperl: missing script argument (or use -e CODE)\n") |
| 246 | 0 | 0 | Cwd::realpath($path) // (return 0) |
| 297 | 21 | 0 | $rc // 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 118 | 21 | 1 | 9 | $c eq "e" or $c eq "m" |
| 22 | 8 | 1 | $c eq "e" or $c eq "m" or $c eq "M" | |
| 174 | 43 | 0 | 0 | @ARGV or @$eval_codes |