Branch Coverage

blib/lib/UI/Dialog/Backend/ASCII.pm
Criterion Covered Total %
branch 5 292 1.7


line true false branch
40 0 1 @_ ? :
0 1 ref $_[0] eq 'HASH' ? :
48 0 1 if ($CFG_PATH) { }
1 0 elsif ($ENV{'PATH'}) { }
49 0 0 if (ref $CFG_PATH eq 'ARRAY') { }
0 0 elsif ($CFG_PATH =~ /:/) { }
0 0 elsif (-d $CFG_PATH) { }
94 0 1 exists $cfg->{'trust-input'} && $cfg->{'trust-input'} == 1 ? :
110 0 0 if (ref $text eq 'ARRAY') { }
0 0 elsif ($text =~ /\\n/) { }
125 0 0 @_ % 2 ? :
128 0 0 unless $args->{$def}
133 0 0 $args->{'path'} ? :
0 0 $args->{'file'} ? :
0 0 $args->{'filename'} ? :
153 0 0 if ($self->{'_opts'}{'extra-button'} or $self->{'_opts'}{'extra-label'})
156 0 0 unless ($self->{'_opts'}{'nocancel'})
159 0 0 if ($self->{'_opts'}{'help-button'} or $self->{'_opts'}{'help-label'})
173 0 0 if $cfg->{'extra-button'}
174 0 0 if $cfg->{'extra-label'}
175 0 0 if $extra and $extra ne ' '
176 0 0 if $cfg->{'help-button'}
177 0 0 if $cfg->{'help-label'}
178 0 0 if $help and $help ne ' '
179 0 0 unless $cfg->{'nocancel'}
180 0 0 if $cfg->{'cancellabel'}
181 0 0 if $cancel and $cancel ne ' '
192 0 0 if ($cfg->{'literal'}) { }
243 0 0 if $cfg->{'usestderr'}
248 0 0 unless not $cfg->{'usestderr'}
258 0 0 if ($cfg->{'literal'}) { }
314 0 0 if $cfg->{'usestderr'}
319 0 0 unless not $cfg->{'usestderr'}
329 0 0 if ($cfg->{'literal'}) { }
344 0 0 if ($cfg->{'wm'}) { }
346 0 0 if ($menu->[$i] and $menu->[$i] =~ /on/i) { }
357 0 0 if (not $mark and $menu->[$i] and $menu->[$i] =~ /on/i) { }
410 0 0 if $cfg->{'usestderr'}
415 0 0 unless not $cfg->{'usestderr'}
422 0 0 if ($stderr) { }
439 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
440 0 0 if ($_[0] and $_[0] eq 'caller')
445 0 0 if $self->{'defaultno'}
451 0 0 if (not $RESP and $args->{'defaultno'}) { }
0 0 elsif (not $RESP || $args->{'defaultno'}) { }
457 0 0 if ($RESP =~ /^(y|yes)$/i) { }
469 0 0 if $self->state eq 'OK'
478 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
479 0 0 if ($_[0] and $_[0] eq 'caller')
492 0 0 if ($args->{'maxinput'}) { }
498 0 0 if ($length > $args->{'maxinput'})
515 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
516 0 0 if ($_[0] and $_[0] eq 'caller')
522 0 0 unless -x $args->{'stty'}
533 0 0 if ($self->_is_bsd) { }
540 0 0 if $key =~ /\n/
541 0 0 if ($key =~ /^\x1b$/) { }
0 0 elsif ($key =~ /^(?:\x08|\x7f)$/) { }
545 0 0 if ($key2 =~ /^\x5b$/) { }
547 0 0 if ($key3 =~ /^\x33$/) { }
549 0 0 if ($key4 =~ /^\x7e$/) { }
554 0 0 if ($args->{'usestderr'}) { }
579 0 0 if ($args->{'usestderr'}) { }
587 0 0 if ($args->{'usestderr'}) { }
596 0 0 if ($self->_is_bsd) { }
602 0 0 if ($args->{'maxinput'}) { }
608 0 0 if ($length > $args->{'maxinput'})
626 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
627 0 0 if ($_[0] and $_[0] eq 'caller')
634 0 0 $args->{'timeout'} ? :
0 0 $args->{'wait'} ? :
648 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
649 0 0 if ($_[0] and $_[0] eq 'caller')
669 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
670 0 0 if ($_[0] and $_[0] eq 'caller')
675 0 0 if (-r $args->{'path'}) { }
678 0 0 if ($ENV{'PAGER'} and -x $ENV{'PAGER'}) { }
0 0 elsif (-x $args->{'pager'}) { }
710 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
711 0 0 if ($_[0] and $_[0] eq 'caller')
715 0 0 if ref $args->{'list'} eq 'ARRAY'
719 0 0 if ref $args->{'menu'} eq 'ARRAY'
721 0 0 if ref $args->{'menu'} eq 'ARRAY'
727 0 0 if (@{$menu;} >= 60) { }
747 0 0 if ($rs =~ /^:\?$/i) { }
0 0 elsif ($rs =~ /^:(esc|escape)$/i) { }
0 0 elsif ($args->{'extra-button'} || $args->{'extra-label'} and $rs =~ /^:(e|extra)$/i) { }
0 0 elsif ($args->{'help-button'} and $rs =~ /^:(h|help)$/i) { }
0 0 elsif (not $args->{'nocancel'} and $rs =~ /^:(c|cancel)$/i) { }
0 0 elsif ($rs =~ /^:pg\s*(\d+)$/i) { }
0 0 elsif ($rs =~ /^:(n|next)$/i) { }
0 0 elsif ($rs =~ /^:(p|prev)$/i) { }
777 0 0 if ($p <= @{$realm;} and $p > 0)
783 0 0 if ($pg < @{$realm;}) { }
792 0 0 if ($pg > 1) { }
801 0 0 if (@_ = grep({/^\Q$rs\E$/i;} @{$valid;})) { }
823 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
824 0 0 if ($_[0] and $_[0] eq 'caller')
830 0 0 if (ref $menulist eq 'ARRAY')
833 0 0 if (ref $item eq 'ARRAY') { }
834 0 0 if @$item == 3
847 0 0 if ref $args->{'menu'} eq 'ARRAY'
849 0 0 if ref $args->{'menu'} eq 'ARRAY'
855 0 0 if (@{$menu;} >= 90) { }
875 0 0 if ($rs =~ /^:\?$/i) { }
0 0 elsif ($rs =~ /^:(esc|escape)$/i) { }
0 0 elsif ($args->{'extra-button'} || $args->{'extra-label'} and $rs =~ /^:(e|extra)$/i) { }
0 0 elsif ($args->{'help-button'} || $args->{'help-label'} and $rs =~ /^:(h|help)$/i) { }
0 0 elsif (not $args->{'nocancel'} and $rs =~ /^:(c|cancel)$/i) { }
0 0 elsif ($rs =~ /^:pg\s*(\d+)$/i) { }
0 0 elsif ($rs =~ /^:(n|next)$/i) { }
0 0 elsif ($rs =~ /^:(p|prev)$/i) { }
906 0 0 if ($p <= @{$realm;} and $p > 0)
911 0 0 if ($pg < @{$realm;}) { }
919 0 0 if ($pg > 1) { }
930 0 0 if (@_ = grep({/^\Q$opt\E$/i;} @{$valid;}))
934 0 0 if (@opts == @good)
956 0 0 $caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? :
957 0 0 if ($_[0] and $_[0] eq 'caller')
963 0 0 if (ref $menulist eq 'ARRAY')
966 0 0 if (ref $item eq 'ARRAY') { }
967 0 0 if @$item == 3
978 0 0 if ref $args->{'menu'} eq 'ARRAY'
980 0 0 if ref $args->{'menu'} eq 'ARRAY'
986 0 0 if (@{$menu;} >= 90) { }
1005 0 0 if ($rs =~ /^:\?$/i) { }
0 0 elsif ($rs =~ /^:(esc|escape)$/i) { }
0 0 elsif ($args->{'extra-button'} || $args->{'extra-label'} and $rs =~ /^:(e|extra)$/i) { }
0 0 elsif ($args->{'help-button'} || $args->{'help-label'} and $rs =~ /^:(h|help)$/i) { }
0 0 elsif (not $args->{'nocancel'} and $rs =~ /^:(c|cancel)$/i) { }
0 0 elsif ($rs =~ /^:pg\s*(\d+)$/i) { }
0 0 elsif ($rs =~ /^:(n|next)$/i) { }
0 0 elsif ($rs =~ /^:(p|prev)$/i) { }
1035 0 0 if ($p <= @{$realm;} and $p > 0)
1041 0 0 if ($pg < @{$realm;}) { }
1050 0 0 if ($pg > 1) { }
1059 0 0 if (@_ = grep({/^\Q$rs\E$/i;} @{$valid;})) { }
1081 0 0 if (not $self->{'__SPIN'} or $self->{'__SPIN'} == 1) { }
0 0 elsif ($self->{'__SPIN'} == 2) { }
0 0 elsif ($self->{'__SPIN'} == 3) { }
0 0 elsif ($self->{'__SPIN'} == 4) { }
1108 0 0 $current && $total ? :
1109 0 0 $percent <= 100 && $percent >= 0 ? :
1112 0 0 $percent =~ /^\d\d$/ ? :
0 0 $percent =~ /^\d$/ ? :
1114 0 0 $args->{'noCR'} && !$args->{'CR'} ? :