| blib/lib/UI/Dialog/Backend.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 33 | 179 | 18.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 233 | 0 | 0 | 22 | exists $args->{$key} and defined $args->{$key} |
| 334 | 0 | 0 | 11 | exists $self->{'test_mode'} and defined $self->{'test_mode'} |
| 0 | 11 | 0 | exists $self->{'test_mode'} and defined $self->{'test_mode'} and $self->{'test_mode'} | |
| 436 | 0 | 0 | 0 | $mktemp and -x $mktemp |
| 492 | 0 | 0 | 0 | $_[0] and $_[0] eq 'caller' |
| 511 | 0 | 0 | 0 | $self->state ne 'ESC' and $self->state ne 'CANCEL' |
| 563 | 0 | 0 | 0 | $rv and $rv >= 1 |
| 579 | 0 | 0 | 0 | $_[0] and $_[0] eq 'caller' |
| 587 | 0 | 0 | 0 | $dirname and not $self->state =~ /^(CANCEL|ESC|ERROR)$/ |
| 672 | 0 | 0 | 9 | exists $_[3] && defined $_[3] |
| 695 | 0 | 0 | 0 | $self->{'width'} - 5 < length $s_line and length $s_line <= $self->{'max-scale'} |
| 815 | 37 | 0 | 0 | $self->{'_opts'}{'debug'} and $self->{'_opts'}{'debug'} >= $rate |
| 835 | 0 | 0 | 0 | $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
| 848 | 0 | 0 | 21 | $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
| line | l | !l | condition |
|---|---|---|---|
| 61 | 0 | 0 | $self->{'_nautilus'} || {} |
| 77 | 0 | 0 | $self->{'_xosd'} || {} |
| 93 | 0 | 0 | $self->{'_notify_send'} || {} |
| 157 | 0 | 0 | $self->rv || 0 |
| 158 | 0 | 0 | $rv || 'NULL' |
| 193 | 0 | 10 | $args->{'literal'} || 0 |
| 10 | 0 | $args->{'width'} || '65' | |
| 1 | 9 | $args->{'trust-input'} || 0 | |
| 10 | 0 | $value || '' | |
| 203 | 278 | 0 | $args->{'width'} || '65' |
| 25 | 253 | $args->{'trust-input'} || 0 | |
| 126 | 152 | $value || '' | |
| 263 | 123 | 152 | $args->{$key} || '' |
| 269 | 123 | 152 | $rpl{$key}{'value'} || '' |
| 284 | 0 | 0 | $item->[2] || 1 |
| 291 | 0 | 0 | $item->[2] || 1 |
| 307 | 0 | 0 | $value ||= '' |
| 410 | 9 | 0 | shift() || 65 |
| 411 | 0 | 9 | shift() || '' |
| 412 | 0 | 9 | shift() || '' |
| 421 | 0 | 0 | $self->{'_opts'}{'tempfiletemplate'} || 'UI_Dialog_tempfile_XXXXX' |
| 467 | 0 | 0 | $_[1] || 5 |
| 490 | 0 | 0 | (caller 1)[3] || 'main' |
| 491 | 0 | 0 | (caller 2)[3] || 'main' |
| 523 | 0 | 0 | $file - 1 or 0 |
| 0 | 0 | $file - 1 or 0 | |
| 0 | 0 | $file - 1 or 0 | |
| 0 | 0 | $file - 1 or 0 | |
| 0 | 0 | $file - 1 or 0 | |
| 548 | 0 | 0 | $file - 1 or 0 |
| 551 | 0 | 0 | $file - 1 or 0 |
| 577 | 0 | 0 | (caller 1)[3] || 'main' |
| 578 | 0 | 0 | (caller 2)[3] || 'main' |
| 600 | 0 | 0 | $dirname || '' |
| 630 | 10 | 0 | shift() || {} |
| 671 | 9 | 0 | $_[2] || 65 |
| 744 | 0 | 11 | $args->{'clearbefore'} || $args->{'clearafter'} || $args->{'autoclear'} || 0 |
| 745 | 0 | 11 | $args->{'beepbefore'} || $args->{'beepafter'} || $args->{'autobeep'} || 0 |
| 785 | 0 | 0 | shift() || (return ()) |
| 813 | 37 | 0 | $_[1] || 'null debug message given!' |
| 814 | 37 | 0 | $_[2] || 1 |
| 821 | 0 | 0 | $_[1] || 'null error message given!' |
| 845 | 0 | 21 | $_[1] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 39 | 0 | 0 | 0 | ref $proto || $proto |
| 117 | 0 | 0 | 0 | $_[2] == 0 or $_[2] =~ /^NULL$/i |
| 159 | 0 | 0 | 0 | $rv == 1 or $rv == 129 |
| 0 | 0 | 0 | not $rv or $rv =~ /^null$/i | |
| 310 | 25 | 0 | 247 | $rpl{$key}{'trust'} or $rpl{$key}{'literal'} |
| 473 | 0 | 0 | 0 | $num < 33 or $num > 127 |
| 504 | 0 | 0 | 0 | $args->{'path'} ||= abs_path() |
| 506 | 0 | 0 | 0 | not $path or $path =~ m[^(\.|\./)$] |
| 515 | 0 | 0 | 0 | $args->{'listheight'} || $args->{'menuheight'} |
| 525 | 0 | 0 | 0 | not $nfn or -e $path . '/' . $nfn |
| 528 | 0 | 0 | 0 | $self->state eq 'ESC' or $self->state eq 'CANCEL' |
| 594 | 0 | 0 | 0 | -d $dirname or not -e $dirname |
| 706 | 0 | 0 | 0 | uc $align eq 'CENTER' or uc $align eq 'C' |
| 0 | 0 | 0 | uc $align eq 'LEFT' or uc $align eq 'L' | |
| 0 | 0 | 0 | uc $align eq 'RIGHT' or uc $align eq 'R' | |
| 849 | 0 | 0 | 21 | $clear || $self->{'_opts'}{'autoclear'} |
| 850 | 0 | 0 | 0 | $self->{'_clear'} ||= `clear` |