| line |
true |
false |
branch |
|
43
|
0 |
0 |
@_ ? : |
|
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
45
|
0 |
0 |
if exists $cfg->{'test_mode'} |
|
57
|
1 |
0 |
if defined $_[0]{'_opts'}{'bin'} |
|
65
|
0 |
0 |
unless (ref $nautilus eq 'UI::Dialog::Backend::Nautilus') |
|
66
|
0 |
0 |
if ($self->_find_bin('nautilus')) |
|
67
|
0 |
0 |
if (eval 'require UI::Dialog::Backend::Nautilus; 1') |
|
79
|
0 |
0 |
@_ % 2 == 0 ? : |
|
81
|
0 |
0 |
unless (ref $xosd eq 'UI::Dialog::Backend::XOSD') |
|
82
|
0 |
0 |
if ($self->_find_bin('osd_cat')) |
|
83
|
0 |
0 |
if (eval 'require UI::Dialog::Backend::XOSD; 1') |
|
95
|
0 |
0 |
@_ % 2 == 0 ? : |
|
97
|
0 |
0 |
unless (ref $notify_send eq 'UI::Dialog::Backend::NotifySend') |
|
98
|
0 |
0 |
if ($self->_find_bin('notify-send')) |
|
99
|
0 |
0 |
if (eval 'require UI::Dialog::Backend::NotifySend; 1') |
|
116
|
0 |
0 |
unless ($_[2]) |
|
117
|
0 |
0 |
if $self->{'_opts'}{$name} |
|
120
|
0 |
0 |
if ($_[2] == 0 or $_[2] =~ /^NULL$/i) { } |
|
133
|
1 |
0 |
if (@argv) { } |
|
134
|
0 |
1 |
if (defined $argv[0] and $argv[0] =~ /^null$/i) { } |
|
149
|
1 |
0 |
if (@argv) |
|
150
|
0 |
1 |
if (defined $argv[0] and $argv[0] =~ /^null$/i) { } |
|
163
|
1 |
0 |
if (@argv) |
|
164
|
1 |
0 |
if (defined $argv[0] and $argv[0] =~ /^null$/i) { } |
|
178
|
0 |
0 |
if ($rv == 1 or $rv == 129) { } |
|
|
0 |
0 |
elsif ($rv == 2) { } |
|
|
0 |
0 |
elsif ($rv == 3) { } |
|
|
0 |
0 |
elsif ($rv == 254) { } |
|
|
0 |
0 |
elsif ($rv == 255) { } |
|
|
0 |
0 |
elsif (not $rv or $rv =~ /^null$/i) { } |
|
240
|
0 |
46 |
if (ref $fmt eq 'SCALAR') { } |
|
252
|
22 |
0 |
if (exists $args->{$key} and defined $args->{$key} and $args->{$key}) |
|
260
|
0 |
9 |
unless (ref $sref eq 'SCALAR') |
|
275
|
25 |
260 |
if ($kv->{'trust'}) |
|
297
|
3 |
273 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
273 |
elsif ($key eq 'list') { } |
|
301
|
4 |
8 |
if (ref $item eq 'ARRAY') |
|
303
|
4 |
0 |
if (@{$item;} == 2) { } |
|
|
0 |
0 |
elsif (@{$item;} == 3) { } |
|
|
0 |
0 |
elsif (@{$item;} == 4) { } |
|
305
|
2 |
2 |
$item->[1] ? : |
|
310
|
0 |
0 |
$item->[1] ? : |
|
316
|
0 |
0 |
$item->[1] ? : |
|
332
|
0 |
273 |
unless defined $value |
|
333
|
48 |
225 |
if $value =~ /^(\d+)$/ |
|
334
|
273 |
0 |
if (ref \$value eq 'SCALAR') |
|
335
|
9 |
239 |
unless ($rpl{$key}{'trust'} or $rpl{$key}{'literal'}) |
|
359
|
11 |
0 |
if exists $self->{'test_mode'} and defined $self->{'test_mode'} and $self->{'test_mode'} |
|
372
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
381
|
0 |
0 |
if -f $tmp_stderr |
|
390
|
5 |
0 |
if ($self->is_unit_test_mode) |
|
406
|
5 |
0 |
if ($self->is_unit_test_mode) |
|
408
|
5 |
0 |
wantarray ? : |
|
416
|
0 |
0 |
unless defined wantarray |
|
417
|
0 |
0 |
wantarray ? : |
|
424
|
1 |
0 |
if ($self->is_unit_test_mode) |
|
426
|
1 |
0 |
wantarray ? : |
|
443
|
0 |
0 |
unless defined wantarray and wantarray |
|
444
|
0 |
0 |
wantarray ? : |
|
479
|
0 |
0 |
if (eval 'require File::Temp; 1') { } |
|
481
|
0 |
0 |
unless my($fh, $filename) = tempfile('UNLINK', 1) |
|
482
|
0 |
0 |
if (wantarray) { } |
|
493
|
0 |
0 |
if ($mktemp and -x $mktemp) { } |
|
500
|
0 |
0 |
unless (-d $tempdir) |
|
501
|
0 |
0 |
if (-d '/var/tmp') { } |
|
548
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
549
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
564
|
0 |
0 |
if (-f $pre_selection) |
|
567
|
0 |
0 |
if (not $path or $path =~ m[^(\.|\./)$]) |
|
573
|
0 |
0 |
$args->{'dselect'} ? : |
|
581
|
0 |
0 |
$args->{'dselect'} ? : |
|
584
|
0 |
0 |
if ($self->state eq 'CANCEL') { } |
|
|
0 |
0 |
elsif ($user_selection ne '') { } |
|
591
|
0 |
0 |
if ($$list[$user_selection - 1 or 0] =~ /^\[(new\sdirectory|new\sfile)\]$/) { } |
|
|
0 |
0 |
elsif ($$list[$user_selection - 1 or 0] eq '../') { } |
|
|
0 |
0 |
elsif ($$list[$user_selection - 1 or 0] eq './') { } |
|
|
0 |
0 |
elsif (-d $path . '/' . $$list[$user_selection - 1 or 0]) { } |
|
|
0 |
0 |
elsif (-e $path . '/' . $$list[$user_selection - 1 or 0]) { } |
|
600
|
0 |
0 |
if $self->state eq 'ESC' or $self->state eq 'CANCEL' |
|
601
|
0 |
0 |
if (-e $path . '/' . $nfn) |
|
608
|
0 |
0 |
unless $user_selection =~ m[^/$] |
|
617
|
0 |
0 |
unless $user_selection =~ m[^/$] |
|
626
|
0 |
0 |
unless $user_selection =~ m[^/$] |
|
637
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
652
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
653
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
663
|
0 |
0 |
if ($self->state =~ /^(CANCEL|ESC|ERROR)$/) |
|
666
|
0 |
0 |
unless (not $dirname) |
|
668
|
0 |
0 |
unless (-d $dirname or not -e $dirname) |
|
690
|
0 |
11 |
if (ref $CODEREFS eq 'HASH') |
|
692
|
0 |
0 |
if (ref $PRECODE eq 'CODE') |
|
711
|
0 |
9 |
if (ref $CODEREFS eq 'HASH') |
|
713
|
0 |
0 |
if ($state eq 'OK') { } |
|
|
0 |
0 |
elsif ($state eq 'ESC') { } |
|
|
0 |
0 |
elsif ($state eq 'CANCEL') { } |
|
715
|
0 |
0 |
if (ref $OKCODE eq 'CODE') |
|
721
|
0 |
0 |
if (ref $ESCCODE eq 'CODE') |
|
727
|
0 |
0 |
if (ref $CANCELCODE eq 'CODE') |
|
732
|
0 |
0 |
if (ref $POSTCODE eq 'CODE') |
|
746
|
9 |
0 |
exists $_[3] && defined $_[3] ? : |
|
750
|
0 |
9 |
if (ref $text eq 'ARRAY') { } |
|
|
0 |
9 |
elsif ($text =~ /\\n/) { } |
|
763
|
0 |
9 |
if ($self->{'scale'}) |
|
769
|
0 |
0 |
if $self->{'width'} - 5 < length $s_line and length $s_line <= $self->{'max-scale'} |
|
777
|
0 |
9 |
if ($line =~ /\[A\=(\w+)\]/i) |
|
780
|
0 |
0 |
if (uc $align eq 'CENTER' or uc $align eq 'C') { } |
|
|
0 |
0 |
elsif (uc $align eq 'LEFT' or uc $align eq 'L') { } |
|
|
0 |
0 |
elsif (uc $align eq 'RIGHT' or uc $align eq 'R') { } |
|
790
|
0 |
9 |
if ($pad) { } |
|
798
|
9 |
0 |
if $text |
|
805
|
0 |
11 |
@_ % 2 ? : |
|
810
|
164 |
45 |
unless exists $args->{$def} |
|
816
|
1 |
10 |
$args->{'path'} ? : |
|
|
0 |
11 |
$args->{'file'} ? : |
|
|
0 |
11 |
$args->{'filename'} ? : |
|
828
|
0 |
1 |
$self->{'PATHS'} ? : |
|
|
42 |
1 |
ref $self->{'PATHS'} eq 'ARRAY' ? : |
|
831
|
17 |
253 |
if -x $PATH . '/' . $variant |
|
851
|
0 |
0 |
if $^O =~ /bsd/i |
|
862
|
0 |
0 |
@_ == 1 && $_[0] == 1 ? : |
|
864
|
0 |
0 |
if (opendir GETDIR, $path) { } |
|
867
|
0 |
0 |
if ($pref) |
|
873
|
0 |
0 |
unless ($paths_only) |
|
893
|
0 |
0 |
unless $self->{'_opts'}{'debug'} and $self->{'_opts'}{'debug'} >= $rate |
|
908
|
0 |
20 |
unless (not $beep) |
|
909
|
0 |
0 |
if (-x $self->{'_opts'}{'beepbin'}) { } |
|
913
|
0 |
0 |
unless $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
|
926
|
0 |
20 |
unless $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
|
927
|
0 |
20 |
unless (not $clear || $self->{'_opts'}{'autoclear'}) |