| line |
true |
false |
branch |
|
40
|
0 |
0 |
@_ ? : |
|
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
42
|
0 |
0 |
if exists $cfg->{'test_mode'} |
|
54
|
1 |
0 |
if defined $_[0]{'_opts'}{'bin'} |
|
62
|
0 |
0 |
unless (ref $nautilus eq 'UI::Dialog::Backend::Nautilus') |
|
63
|
0 |
0 |
if ($self->_find_bin('nautilus')) |
|
64
|
0 |
0 |
if (eval 'require UI::Dialog::Backend::Nautilus; 1') |
|
76
|
0 |
0 |
@_ % 2 == 0 ? : |
|
78
|
0 |
0 |
unless (ref $xosd eq 'UI::Dialog::Backend::XOSD') |
|
79
|
0 |
0 |
if ($self->_find_bin('osd_cat')) |
|
80
|
0 |
0 |
if (eval 'require UI::Dialog::Backend::XOSD; 1') |
|
92
|
0 |
0 |
@_ % 2 == 0 ? : |
|
94
|
0 |
0 |
unless (ref $notify_send eq 'UI::Dialog::Backend::NotifySend') |
|
95
|
0 |
0 |
if ($self->_find_bin('notify-send')) |
|
96
|
0 |
0 |
if (eval 'require UI::Dialog::Backend::NotifySend; 1') |
|
113
|
0 |
0 |
unless ($_[2]) |
|
114
|
0 |
0 |
if $self->{'_opts'}{$name} |
|
117
|
0 |
0 |
if ($_[2] == 0 or $_[2] =~ /^NULL$/i) { } |
|
129
|
12 |
2 |
@_ ? : |
|
130
|
8 |
4 |
$_[0] =~ /^null$/i ? : |
|
|
12 |
2 |
if @_ |
|
132
|
0 |
14 |
unless ref $aref eq 'ARRAY' |
|
140
|
7 |
5 |
$rset ? : |
|
141
|
6 |
1 |
$rset =~ /^null$/i ? : |
|
|
7 |
5 |
if $rset |
|
149
|
11 |
0 |
$rset ? : |
|
150
|
11 |
0 |
$rset =~ /^null$/i ? : |
|
|
11 |
0 |
if $rset |
|
159
|
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) { } |
|
221
|
0 |
51 |
if (ref $fmt eq 'SCALAR') { } |
|
233
|
22 |
0 |
if (exists $args->{$key} and defined $args->{$key}) |
|
241
|
0 |
293 |
unless (ref $sref eq 'SCALAR') |
|
245
|
268 |
25 |
unless ($trust) |
|
270
|
3 |
272 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
272 |
elsif ($key eq 'list') { } |
|
274
|
4 |
8 |
if (ref $item eq 'ARRAY') |
|
276
|
4 |
0 |
if (@{$item;} == 2) { } |
|
|
0 |
0 |
elsif (@{$item;} == 3) { } |
|
|
0 |
0 |
elsif (@{$item;} == 4) { } |
|
278
|
2 |
2 |
$item->[1] ? : |
|
284
|
0 |
0 |
$item->[1] ? : |
|
291
|
0 |
0 |
$item->[1] ? : |
|
307
|
0 |
272 |
unless defined $value |
|
308
|
48 |
224 |
if $value =~ /^(\d+)$/ |
|
309
|
272 |
0 |
if (ref \$value eq 'SCALAR') |
|
310
|
9 |
238 |
unless ($rpl{$key}{'trust'} or $rpl{$key}{'literal'}) |
|
334
|
11 |
0 |
if exists $self->{'test_mode'} and defined $self->{'test_mode'} and $self->{'test_mode'} |
|
347
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
362
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
364
|
0 |
0 |
wantarray ? : |
|
370
|
0 |
0 |
unless defined wantarray |
|
371
|
0 |
0 |
wantarray ? : |
|
378
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
380
|
0 |
0 |
wantarray ? : |
|
386
|
0 |
0 |
unless defined wantarray |
|
387
|
0 |
0 |
wantarray ? : |
|
422
|
0 |
0 |
if (eval 'require File::Temp; 1') { } |
|
424
|
0 |
0 |
unless my($fh, $filename) = tempfile('UNLINK', 1) |
|
425
|
0 |
0 |
if (wantarray) { } |
|
436
|
0 |
0 |
if ($mktemp and -x $mktemp) { } |
|
443
|
0 |
0 |
unless (-d $tempdir) |
|
444
|
0 |
0 |
if (-d '/var/tmp') { } |
|
491
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
492
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
506
|
0 |
0 |
if (not $path or $path =~ m[^(\.|\./)$]) |
|
512
|
0 |
0 |
$args->{'dselect'} ? : |
|
516
|
0 |
0 |
if ($self->state eq 'CANCEL') { } |
|
|
0 |
0 |
elsif ($file ne '') { } |
|
523
|
0 |
0 |
if ($$list[$file - 1 or 0] =~ /^\[(new\sdirectory|new\sfile)\]$/) { } |
|
|
0 |
0 |
elsif ($$list[$file - 1 or 0] eq '../') { } |
|
|
0 |
0 |
elsif ($$list[$file - 1 or 0] eq './') { } |
|
|
0 |
0 |
elsif (-d $path . '/' . $$list[$file - 1 or 0]) { } |
|
|
0 |
0 |
elsif (-e $path . '/' . $$list[$file - 1 or 0]) { } |
|
528
|
0 |
0 |
if $self->state eq 'ESC' or $self->state eq 'CANCEL' |
|
529
|
0 |
0 |
if (-e $path . '/' . $nfn) |
|
534
|
0 |
0 |
unless $file =~ m[^/$] |
|
543
|
0 |
0 |
unless $file =~ m[^/$] |
|
552
|
0 |
0 |
unless $file =~ m[^/$] |
|
563
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
578
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
579
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
589
|
0 |
0 |
if ($self->state =~ /^(CANCEL|ESC|ERROR)$/) |
|
592
|
0 |
0 |
unless (not $dirname) |
|
594
|
0 |
0 |
unless (-d $dirname or not -e $dirname) |
|
616
|
0 |
11 |
if (ref $CODEREFS eq 'HASH') |
|
618
|
0 |
0 |
if (ref $PRECODE eq 'CODE') |
|
637
|
0 |
10 |
if (ref $CODEREFS eq 'HASH') |
|
639
|
0 |
0 |
if ($state eq 'OK') { } |
|
|
0 |
0 |
elsif ($state eq 'ESC') { } |
|
|
0 |
0 |
elsif ($state eq 'CANCEL') { } |
|
641
|
0 |
0 |
if (ref $OKCODE eq 'CODE') |
|
647
|
0 |
0 |
if (ref $ESCCODE eq 'CODE') |
|
653
|
0 |
0 |
if (ref $CANCELCODE eq 'CODE') |
|
658
|
0 |
0 |
if (ref $POSTCODE eq 'CODE') |
|
672
|
9 |
0 |
exists $_[3] && defined $_[3] ? : |
|
676
|
0 |
9 |
if (ref $text eq 'ARRAY') { } |
|
|
0 |
9 |
elsif ($text =~ /\\n/) { } |
|
689
|
0 |
9 |
if ($self->{'scale'}) |
|
695
|
0 |
0 |
if $self->{'width'} - 5 < length $s_line and length $s_line <= $self->{'max-scale'} |
|
703
|
0 |
9 |
if ($line =~ /\[A\=(\w+)\]/i) |
|
706
|
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') { } |
|
716
|
0 |
9 |
if ($pad) { } |
|
731
|
0 |
11 |
@_ % 2 ? : |
|
736
|
164 |
45 |
unless exists $args->{$def} |
|
742
|
1 |
10 |
$args->{'path'} ? : |
|
|
0 |
11 |
$args->{'file'} ? : |
|
|
0 |
11 |
$args->{'filename'} ? : |
|
754
|
0 |
0 |
$self->{'PATHS'} ? : |
|
|
16 |
0 |
ref $self->{'PATHS'} eq 'ARRAY' ? : |
|
757
|
5 |
100 |
if -x $PATH . '/' . $variant |
|
776
|
0 |
0 |
if $^O =~ /bsd/i |
|
788
|
0 |
0 |
if (opendir GETDIR, $path) { } |
|
791
|
0 |
0 |
if ($pref) |
|
815
|
37 |
0 |
unless $self->{'_opts'}{'debug'} and $self->{'_opts'}{'debug'} >= $rate |
|
830
|
0 |
21 |
unless (not $beep) |
|
831
|
0 |
0 |
if (-x $self->{'_opts'}{'beepbin'}) { } |
|
835
|
0 |
0 |
unless $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
|
848
|
0 |
21 |
unless $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
|
849
|
0 |
21 |
unless (not $clear || $self->{'_opts'}{'autoclear'}) |