| 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') { } |
|
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] ? : |
|
303
|
0 |
272 |
unless defined $value |
|
304
|
48 |
224 |
if $value =~ /^(\d+)$/ |
|
305
|
272 |
0 |
if (ref \$value eq 'SCALAR') |
|
306
|
9 |
238 |
unless ($rpl{$key}{'trust'} or $rpl{$key}{'literal'}) |
|
330
|
11 |
0 |
if exists $self->{'test_mode'} and defined $self->{'test_mode'} and $self->{'test_mode'} |
|
343
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
358
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
360
|
0 |
0 |
wantarray ? : |
|
366
|
0 |
0 |
unless defined wantarray |
|
367
|
0 |
0 |
wantarray ? : |
|
374
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
376
|
0 |
0 |
wantarray ? : |
|
382
|
0 |
0 |
unless defined wantarray |
|
383
|
0 |
0 |
wantarray ? : |
|
418
|
0 |
0 |
if (eval 'require File::Temp; 1') { } |
|
420
|
0 |
0 |
unless my($fh, $filename) = tempfile('UNLINK', 1) |
|
421
|
0 |
0 |
if (wantarray) { } |
|
432
|
0 |
0 |
if ($mktemp and -x $mktemp) { } |
|
439
|
0 |
0 |
unless (-d $tempdir) |
|
440
|
0 |
0 |
if (-d '/var/tmp') { } |
|
487
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
488
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
502
|
0 |
0 |
if (not $path or $path =~ m[^(\.|\./)$]) |
|
508
|
0 |
0 |
$args->{'dselect'} ? : |
|
512
|
0 |
0 |
if ($self->state eq 'CANCEL') { } |
|
|
0 |
0 |
elsif ($file ne '') { } |
|
519
|
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]) { } |
|
524
|
0 |
0 |
if $self->state eq 'ESC' or $self->state eq 'CANCEL' |
|
525
|
0 |
0 |
if (-e $path . '/' . $nfn) |
|
530
|
0 |
0 |
unless $file =~ m[^/$] |
|
539
|
0 |
0 |
unless $file =~ m[^/$] |
|
548
|
0 |
0 |
unless $file =~ m[^/$] |
|
559
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
574
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
575
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
585
|
0 |
0 |
if ($self->state =~ /^(CANCEL|ESC|ERROR)$/) |
|
588
|
0 |
0 |
unless (not $dirname) |
|
590
|
0 |
0 |
unless (-d $dirname or not -e $dirname) |
|
612
|
0 |
11 |
if (ref $CODEREFS eq 'HASH') |
|
614
|
0 |
0 |
if (ref $PRECODE eq 'CODE') |
|
633
|
0 |
10 |
if (ref $CODEREFS eq 'HASH') |
|
635
|
0 |
0 |
if ($state eq 'OK') { } |
|
|
0 |
0 |
elsif ($state eq 'ESC') { } |
|
|
0 |
0 |
elsif ($state eq 'CANCEL') { } |
|
637
|
0 |
0 |
if (ref $OKCODE eq 'CODE') |
|
643
|
0 |
0 |
if (ref $ESCCODE eq 'CODE') |
|
649
|
0 |
0 |
if (ref $CANCELCODE eq 'CODE') |
|
654
|
0 |
0 |
if (ref $POSTCODE eq 'CODE') |
|
668
|
9 |
0 |
exists $_[3] && defined $_[3] ? : |
|
672
|
0 |
9 |
if (ref $text eq 'ARRAY') { } |
|
|
0 |
9 |
elsif ($text =~ /\\n/) { } |
|
685
|
0 |
9 |
if ($self->{'scale'}) |
|
691
|
0 |
0 |
if $self->{'width'} - 5 < length $s_line and length $s_line <= $self->{'max-scale'} |
|
699
|
0 |
9 |
if ($line =~ /\[A\=(\w+)\]/i) |
|
702
|
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') { } |
|
712
|
0 |
9 |
if ($pad) { } |
|
727
|
0 |
11 |
@_ % 2 ? : |
|
732
|
164 |
45 |
unless exists $args->{$def} |
|
738
|
1 |
10 |
$args->{'path'} ? : |
|
|
0 |
11 |
$args->{'file'} ? : |
|
|
0 |
11 |
$args->{'filename'} ? : |
|
750
|
0 |
0 |
$self->{'PATHS'} ? : |
|
|
14 |
0 |
ref $self->{'PATHS'} eq 'ARRAY' ? : |
|
753
|
4 |
88 |
if -x $PATH . '/' . $variant |
|
772
|
0 |
0 |
if $^O =~ /bsd/i |
|
784
|
0 |
0 |
if (opendir GETDIR, $path) { } |
|
787
|
0 |
0 |
if ($pref) |
|
811
|
37 |
0 |
unless $self->{'_opts'}{'debug'} and $self->{'_opts'}{'debug'} >= $rate |
|
826
|
0 |
21 |
unless (not $beep) |
|
827
|
0 |
0 |
if (-x $self->{'_opts'}{'beepbin'}) { } |
|
831
|
0 |
0 |
unless $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
|
844
|
0 |
21 |
unless $ENV{'TERM'} and $ENV{'TERM'} ne 'dumb' |
|
845
|
0 |
21 |
unless (not $clear || $self->{'_opts'}{'autoclear'}) |