Branch Coverage

blib/lib/UI/Dialog.pm
Criterion Covered Total %
branch 26 78 33.3


line true false branch
43 0 1 if ($CFG_PATH) { }
1 0 elsif ($ENV{'PATH'}) { }
44 0 0 if (ref $CFG_PATH eq 'ARRAY') { }
0 0 elsif ($CFG_PATH =~ /:/) { }
0 0 elsif (-d $CFG_PATH) { }
50 0 1 if (not $cfg->{'order'} and ($ENV{'DISPLAY'} and length $ENV{'DISPLAY'} > 0))
52 0 0 if ($ENV{'TERM'} =~ /^dumb$/i) { }
62 0 1 $cfg->{'order'} ? :
0 1 ref $cfg->{'order'} eq 'ARRAY' ? :
66 0 1 if $ENV{'UI_DIALOGS'}
69 0 1 if $ENV{'UI_DIALOG'}
73 0 1 exists $cfg->{'trust-input'} && $cfg->{'trust-input'} == 1 ? :
81 1 0 if (ref $cfg->{'order'} eq 'ARRAY') { }
83 0 2 if ($try =~ /^zenity$/i) { }
0 2 elsif ($try =~ /^(?:gdialog|gdialog\.real)$/i) { }
0 2 elsif ($try =~ /^(?:xdialog|X)$/i) { }
0 2 elsif ($try =~ /^kdialog$/i) { }
0 2 elsif ($try =~ /^GNOME$/i) { }
0 2 elsif ($try =~ /^KDE$/i) { }
0 2 elsif ($try =~ /^CONSOLE$/i) { }
1 1 elsif ($try =~ /^(?:dialog|cdialog)$/i) { }
1 0 elsif ($try =~ /^whiptail$/i) { }
0 0 elsif ($try =~ /^(?:ascii|native)$/i) { }
85 0 0 if (eval 'require UI::Dialog::Backend::Zenity; 1' and $self->_has_variant('zenity')) { }
94 0 0 if (eval 'require UI::Dialog::Backend::GDialog; 1' and $self->_has_variant('gdialog.real') || $self->_has_variant('gdialog')) { }
103 0 0 if (eval 'require UI::Dialog::Backend::XDialog; 1' and $self->_has_variant('Xdialog')) { }
111 0 0 if (eval 'require UI::Dialog::Backend::KDialog; 1' and $self->_has_variant('kdialog')) { }
118 0 0 if (eval 'require UI::Dialog::GNOME; 1') { }
124 0 0 if (eval 'require UI::Dialog::KDE; 1') { }
130 0 0 if (eval 'require UI::Dialog::Console; 1') { }
137 0 1 if (eval 'require UI::Dialog::Backend::CDialog; 1' and $self->_has_variant('dialog')) { }
145 1 0 if (eval 'require UI::Dialog::Backend::Whiptail; 1' and $self->_has_variant('whiptail')) { }
153 0 0 if (eval 'require UI::Dialog::Backend::ASCII; 1') { }
162 0 0 if (eval 'require UI::Dialog::Backend::ASCII; 1') { }
170 0 1 unless ref $self->{'_ui_dialog'}
183 6 0 unless $self->{'debug'} and $self->{'debug'} >= $rate
192 0 0 $self->{'PATHS'} ? :
2 0 ref $self->{'PATHS'} eq 'ARRAY' ? :
195 1 12 if -x $PATH . '/' . $variant