| blib/lib/CLI/Helpers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 93 | 26.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 107 | 2 | 0 | 5 | defined $opt_ref and XXX |
| 171 | 7 | 0 | 0 | exists $opts->{'syslog-tag'} && length $opts->{'syslog-tag'} |
| 7 | 0 | 0 | exists $opts->{'syslog-facility'} && length $opts->{'syslog-facility'} | |
| 280 | 0 | 0 | 0 | defined $color and $DEF{'COLOR'} |
| 301 | 16 | 0 | 0 | exists $opts->{'color'} && defined $opts->{'color'} |
| 307 | 16 | 0 | 0 | $DEF{'TAGS'} and exists $opts->{'tag'} |
| 315 | 16 | 0 | 0 | scalar(@input) % 2 == 0 && (exists $opts->{'kv'} && $opts->{'kv'} == 1) |
| 340 | 16 | 0 | 0 | defined $DATA_HANDLE and $opts->{'data'} |
| 16 | 0 | 0 | $DEF{'SYSLOG'} and not $opts->{'no_syslog'} | |
| 427 | 0 | 7 | 0 | XXX and defined $_[1] |
| 7 | 0 | 0 | XXX and defined $_[1] and XXX | |
| 457 | 0 | 0 | 0 | defined $answer and exists $_Confirm_Valid->{$answer} |
| 483 | 0 | 0 | 0 | defined $text and not defined $error |
| 491 | 0 | 0 | 0 | exists $args{'default'} and length $text == 0 |
| 528 | 0 | 0 | 0 | defined $choice and exists $ref{$choice} |
| 603 | 0 | 0 | 0 | length $text and $text =~ /\S/ |
| line | l | !l | condition |
|---|---|---|---|
| 171 | 1 | 6 | $opts->{'debug'} || 0 |
| 0 | 7 | $opts->{'debug-class'} || 'main' | |
| 4 | 3 | $opts->{'verbose'} || 0 | |
| 0 | 7 | $opts->{'quiet'} || 0 | |
| 0 | 7 | $opts->{'syslog'} || 0 | |
| 0 | 7 | $opts->{'syslog-debug'} || 0 | |
| 0 | 7 | $opts->{'nopaste'} || 0 | |
| 309 | 0 | 0 | $TAGS{$opts->{'tag'}} ||= 0 |
| 453 | 0 | 0 | $_Confirm_Valid ||= {"y", 1, "yes", 1, "n", 0, "no", 0} |
| 542 | 0 | 0 | $prompt ||= "Password: " |
| 565 | 0 | 0 | $args{'validate'} ||= {} |
| 581 | 0 | 0 | $args ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 173 | 0 | 0 | 7 | $opts->{'color'} // git_color_check() |
| 269 | 0 | 0 | 0 | $stdout =~ /auto/ or $stdout =~ /true/ |
| 322 | 0 | 0 | 0 | $v ||= $DEF{'KV_FORMAT'} eq ": " ? "~" : "" |
| 331 | 16 | 0 | 0 | not $DEF{'QUIET'} or $opts->{'IMPORTANT'} |
| 409 | 0 | 1 | 2 | lc $DEF{'DEBUG_CLASS'} eq "all" or $package eq $DEF{'DEBUG_CLASS'} |
| 413 | 0 | 1 | 0 | $opts->{'no_syslog'} //= !$DEF{'SYSLOG_DEBUG'} |
| 580 | 0 | 0 | 0 | $term ||= "Term::ReadLine"->new($0) |