Branch Coverage

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


line true false branch
44 0 5 if ($CFG_PATH) { }
5 0 elsif ($ENV{'PATH'}) { }
45 0 0 if (ref $CFG_PATH eq 'ARRAY') { }
0 0 elsif ($CFG_PATH =~ /:/) { }
0 0 elsif (-d $CFG_PATH) { }
51 0 5 if (not $cfg->{'order'} and ($ENV{'DISPLAY'} and length $ENV{'DISPLAY'} > 0))
53 0 0 if ($ENV{'TERM'} =~ /^dumb$/i) { }
63 0 5 $cfg->{'order'} ? :
0 5 ref $cfg->{'order'} eq 'ARRAY' ? :
67 0 5 if $ENV{'UI_DIALOGS'}
70 0 5 if $ENV{'UI_DIALOG'}
74 0 5 exists $cfg->{'trust-input'} && $cfg->{'trust-input'} == 1 ? :
82 5 0 if (ref $cfg->{'order'} eq 'ARRAY') { }
84 0 10 if ($try =~ /^zenity$/i) { }
0 10 elsif ($try =~ /^(?:gdialog|gdialog\.real)$/i) { }
0 10 elsif ($try =~ /^(?:xdialog|X)$/i) { }
0 10 elsif ($try =~ /^kdialog$/i) { }
0 10 elsif ($try =~ /^GNOME$/i) { }
0 10 elsif ($try =~ /^KDE$/i) { }
0 10 elsif ($try =~ /^CONSOLE$/i) { }
5 5 elsif ($try =~ /^(?:dialog|cdialog)$/i) { }
5 0 elsif ($try =~ /^whiptail$/i) { }
0 0 elsif ($try =~ /^(?:ascii|native)$/i) { }
86 0 0 if (eval 'require UI::Dialog::Backend::Zenity; 1' and $self->_has_variant('zenity')) { }
95 0 0 if (eval 'require UI::Dialog::Backend::GDialog; 1' and $self->_has_variant('gdialog.real') || $self->_has_variant('gdialog')) { }
104 0 0 if (eval 'require UI::Dialog::Backend::XDialog; 1' and $self->_has_variant('Xdialog')) { }
112 0 0 if (eval 'require UI::Dialog::Backend::KDialog; 1' and $self->_has_variant('kdialog')) { }
119 0 0 if (eval 'require UI::Dialog::GNOME; 1') { }
125 0 0 if (eval 'require UI::Dialog::KDE; 1') { }
131 0 0 if (eval 'require UI::Dialog::Console; 1') { }
138 0 5 if (eval 'require UI::Dialog::Backend::CDialog; 1' and $self->_has_variant('dialog')) { }
146 5 0 if (eval 'require UI::Dialog::Backend::Whiptail; 1' and $self->_has_variant('whiptail')) { }
154 0 0 if (eval 'require UI::Dialog::Backend::ASCII; 1') { }
163 0 0 if (eval 'require UI::Dialog::Backend::ASCII; 1') { }
171 0 5 unless ref $self->{'_ui_dialog'}
184 51 0 unless $self->{'debug'} and $self->{'debug'} >= $rate
193 0 0 $self->{'PATHS'} ? :
20 0 ref $self->{'PATHS'} eq 'ARRAY' ? :
196 5 130 if -x $PATH . '/' . $variant