| lib/LEOCHARRE/CLI2.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 30 | 33.3 |
| line | l | !l | condition |
|---|---|---|---|
| 27 | 0 | 0 | Carp::cluck('missing user argument') and return |
| 58 | 0 | 0 | Carp::cluck("Not on disk '${abs}'") and return |
| 61 | 0 | 0 | warn "Could not open for reading '${abs}', $!" and return |
| 66 | 0 | 1 | @lines and scalar @lines |
| 85 | 0 | 0 | Carp::cluck('No content arg provided') and return |
| 86 | 0 | 0 | warn "Could not open for writing '${abs}', $!" and return |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 245 | 3 | 0 | 2 | $isf and push @files, $abs |
| 282 | 7 | 0 | 0 | $main::opt_h and print STDERR &main::usage |
| line | l | !l | condition |
|---|---|---|---|
| 249 | 1 | 0 | scalar @dirs || 0 |
| 257 | 1 | 0 | scalar @files || 0 |
| 293 | 0 | 0 | $question ||= 'Your answer? ' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 144 | 0 | 4 | 3 | 'LEOCHARRE::CLI2'->can($arg) or $LEOCHARRE::CLI2::EXPORT_TAGS{$tag} |
| 235 | 2 | 3 | 0 | $isf or $isd |