| line |
true |
false |
branch |
|
41
|
1 |
0 |
@_ ? : |
|
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
50
|
0 |
1 |
if ($CFG_PATH) { } |
|
|
1 |
0 |
elsif ($ENV{'PATH'}) { } |
|
51
|
0 |
0 |
if (ref $CFG_PATH eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($CFG_PATH =~ /$path_sep/) { } |
|
|
0 |
0 |
elsif (-d $CFG_PATH) { } |
|
78
|
0 |
1 |
$cfg->{'colours'} || $cfg->{'colors'} ? : |
|
80
|
0 |
1 |
if $^O =~ /win32/i |
|
87
|
1 |
0 |
unless (-x $self->{'_opts'}{'bin'}) |
|
92
|
0 |
0 |
ref $beginref eq 'ARRAY' ? : |
|
118
|
0 |
0 |
if exists $cfg->{'test_mode'} |
|
130
|
0 |
0 |
if ($str =~ /version\s0\.[34]/m) { } |
|
|
0 |
0 |
elsif ($str =~ /cdialog\s\(ComeOn\sDialog\!\)\sversion\s(\d+\.\d+.+)/) { } |
|
142
|
0 |
0 |
if ($ver =~ /-200[3-9]/) { } |
|
160
|
0 |
0 |
unless (not ref $CODE) |
|
171
|
0 |
0 |
$args->{'DIALOGRC'} && -r $args->{'DIALOGRC'} ? : |
|
198
|
0 |
0 |
if ($self->{'_opts'}{'force-no-separate-output'}) { } |
|
203
|
0 |
0 |
if ($self->is_cdialog) |
|
206
|
0 |
0 |
if (exists $args->{'begin'}) |
|
208
|
0 |
0 |
if (ref $begin eq 'ARRAY') |
|
222
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
227
|
0 |
0 |
$^O =~ /win32/i ? : |
|
234
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
236
|
0 |
0 |
wantarray ? : |
|
244
|
0 |
0 |
if (-f $tmpfile and open WHIPF, '<' . $tmpfile) { } |
|
254
|
0 |
0 |
unless defined wantarray |
|
255
|
0 |
0 |
wantarray ? : |
|
260
|
0 |
0 |
if ($self->is_unit_test_mode) |
|
262
|
0 |
0 |
wantarray ? : |
|
270
|
0 |
0 |
if (-f $tmpfile and open WHIPF, '<' . $tmpfile) { } |
|
280
|
0 |
0 |
if ($self->{'_opts'}{'force-no-separate-output'}) { } |
|
285
|
0 |
0 |
unless defined wantarray |
|
286
|
0 |
0 |
wantarray ? : |
|
289
|
0 |
0 |
unless defined wantarray |
|
290
|
0 |
0 |
wantarray ? : |
|
297
|
0 |
0 |
exists $_[3] && defined $_[3] ? : |
|
300
|
0 |
0 |
if (ref $text eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($text =~ /\\n/) { } |
|
317
|
0 |
0 |
if ($self->{'scale'}) |
|
323
|
0 |
0 |
if $self->{'width'} - 5 < length $s_line and length $s_line <= $self->{'max-scale'} |
|
327
|
0 |
0 |
$^O =~ /win32/i ? : |
|
331
|
0 |
0 |
if ($line =~ /\[A\=(\w+)\]/i) |
|
334
|
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') { } |
|
346
|
0 |
0 |
if ($pad) { } |
|
395
|
0 |
0 |
if ($self->is_cdialog and $self->{'_opts'}{'colours'}) { } |
|
428
|
0 |
0 |
if $self->{'_variant'} and $self->{'_variant'} eq 'cdialog' |
|
437
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
438
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
455
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
476
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
477
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
484
|
0 |
0 |
if ($args->{'password'}) { } |
|
500
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
525
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
526
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
535
|
0 |
0 |
if ($args->{'infobox'}) { } |
|
551
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
556
|
0 |
0 |
if ($args->{'msgbox'} eq 'infobox' and $args->{'timeout'} || $args->{'wait'}) |
|
558
|
0 |
0 |
$args->{'timeout'} ? : |
|
|
0 |
0 |
$args->{'wait'} ? : |
|
577
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
578
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
597
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
614
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
615
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
621
|
0 |
0 |
if exists $args->{'menuheight'} |
|
636
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
655
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
656
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
662
|
0 |
0 |
if exists $args->{'menuheight'} |
|
666
|
0 |
0 |
if ($args->{'radiolist'} == 1) { } |
|
679
|
0 |
0 |
if ($args->{'list'}) { } |
|
680
|
0 |
0 |
unless ref $args->{'list'} eq 'ARRAY' |
|
685
|
0 |
0 |
$info->[1] ? : |
|
689
|
0 |
0 |
unless ref $args->{'items'} eq 'ARRAY' |
|
697
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
709
|
0 |
0 |
unless ref $this_rv eq 'ARRAY' |
|
722
|
0 |
0 |
unless ($self->is_cdialog) |
|
726
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
727
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
744
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
765
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
766
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
785
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
807
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
808
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
828
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
850
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
851
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
869
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
887
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
888
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
906
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
923
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
924
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
930
|
0 |
0 |
if exists $args->{'menuheight'} |
|
932
|
0 |
0 |
if exists $args->{'formheight'} |
|
964
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
976
|
0 |
0 |
unless ref $this_rv eq 'ARRAY' |
|
985
|
0 |
0 |
$caller =~ /^UI\:\:Dialog\:\:Backend\:\:/ ? : |
|
986
|
0 |
0 |
if ($_[0] and $_[0] eq 'caller') |
|
994
|
0 |
0 |
if (defined $self->{'_GAUGE'}{'FH'}) |
|
1019
|
0 |
0 |
if ($rv and $rv >= 1) { } |
|
1031
|
0 |
0 |
unless defined $self->{'_GAUGE'}{'FH'} |
|
1037
|
0 |
0 |
defined $self->{'_GAUGE'}{'FH'} ? : |
|
1043
|
0 |
0 |
unless defined $self->{'_GAUGE'}{'FH'} |
|
1049
|
0 |
0 |
defined $self->{'_GAUGE'}{'FH'} ? : |
|
1055
|
0 |
0 |
unless $self->{'_GAUGE'}{'FH'} |
|
1061
|
0 |
0 |
defined $self->{'_GAUGE'}{'FH'} ? : |
|
1068
|
0 |
0 |
unless $self->{'_GAUGE'}{'FH'} |
|
1073
|
0 |
0 |
defined $self->{'_GAUGE'}{'FH'} ? : |
|
1078
|
0 |
0 |
unless $self->{'_GAUGE'}{'FH'} |