| line |
true |
false |
branch |
|
5
|
0 |
8 |
unless defined $ENV{'TERM'} |
|
138
|
0 |
9 |
if $Curses::UI::initialized |
|
163
|
1 |
8 |
if defined $args{-'debug'} |
|
166
|
9 |
0 |
if defined $args{-'mouse_support'} |
|
169
|
1 |
8 |
if ($Curses::UI::gpm_mouse and $args{-'mouse_support'}) { } |
|
180
|
0 |
9 |
if $Curses::UI::debug |
|
184
|
9 |
0 |
if defined $args{-'color_support'} |
|
195
|
3 |
0 |
if defined $scr |
|
199
|
0 |
3 |
if ($$self{-'clear_on_exit'}) |
|
249
|
0 |
0 |
unless defined $code and ref $code eq 'CODE' |
|
277
|
0 |
9 |
if ($Curses::UI::initialized) |
|
280
|
0 |
0 |
if defined $scr |
|
289
|
0 |
9 |
if ($Curses::UI::color_support) |
|
290
|
0 |
0 |
if (has_colors()) { } |
|
300
|
9 |
0 |
if ($Curses::UI::ncurses_mouse) |
|
302
|
0 |
9 |
if $Curses::UI::debug |
|
306
|
0 |
9 |
if ($Curses::UI::debug) |
|
309
|
0 |
0 |
if $@ |
|
315
|
0 |
9 |
unless defined $root |
|
377
|
2 |
0 |
unless defined $object |
|
382
|
1 |
1 |
if ($Curses::UI::gpm_mouse) |
|
389
|
1 |
0 |
unless (defined $key) |
|
395
|
0 |
1 |
unless $key eq '-1' |
|
400
|
0 |
1 |
if ('Curses'->can('KEY_RESIZE')) |
|
401
|
0 |
0 |
if $key eq KEY_RESIZE() |
|
404
|
0 |
1 |
if ($ENV{'COLS'} != $cols or $ENV{'LINES'} != $lines) |
|
410
|
1 |
0 |
if ($Curses::UI::ncurses_mouse) |
|
411
|
0 |
1 |
if ($key eq KEY_MOUSE()) |
|
412
|
0 |
0 |
if $Curses::UI::debug |
|
422
|
0 |
1 |
if ($Curses::UI::screen_too_small) |
|
423
|
0 |
0 |
if $key eq "\cC" |
|
431
|
0 |
1 |
unless $key eq '-1' |
|
437
|
0 |
1 |
if (@{$$self{-'scheduled_code'};}) |
|
445
|
0 |
0 |
if ref $code ne 'CODE' |
|
466
|
0 |
0 |
unless defined $id |
|
470
|
0 |
0 |
unless defined $code and ref $code eq 'CODE' |
|
483
|
0 |
0 |
unless defined $id |
|
487
|
0 |
0 |
if defined $$self{-'added_code'}{$id} |
|
496
|
0 |
10 |
if ($Curses::UI::screen_too_small) { } |
|
506
|
9 |
1 |
unless $no_doupdate |
|
540
|
0 |
0 |
if $elapsed < $$self{-'keydelay'} |
|
556
|
0 |
0 |
unless $$config{-'enabled'} |
|
558
|
0 |
0 |
unless $new_timeout != -1 and $new_timeout < $$config{-'time'} |
|
562
|
0 |
0 |
if $new_timeout < 0 and $new_timeout != -1 |
|
575
|
0 |
0 |
unless defined $callback and ref $callback eq 'CODE' |
|
579
|
0 |
0 |
unless defined $id |
|
599
|
0 |
0 |
if (defined $$self{-'timers'}{$id}) |
|
609
|
0 |
0 |
if (defined $$self{-'timers'}{$id}) |
|
619
|
0 |
0 |
if (defined $$self{-'timers'}{$id}) |
|
634
|
0 |
1 |
if ($$self{-'keydelay'}) |
|
635
|
0 |
0 |
unless $self->keydelay |
|
641
|
0 |
0 |
unless $$config{-'enabled'} |
|
644
|
0 |
0 |
unless (defined $$config{-'lastrun'}) |
|
650
|
0 |
0 |
if ($$config{-'lastrun'} <= $now - $$config{-'time'}) |
|
662
|
0 |
1 |
if $timers_done |
|
675
|
0 |
0 |
unless defined $object |
|
719
|
0 |
0 |
if $Curses::UI::debug |
|
722
|
0 |
0 |
if defined $return and $return ne 'DELEGATE' |
|
730
|
0 |
1 |
unless defined $object |
|
732
|
0 |
1 |
unless $Curses::UI::gpm_mouse |
|
737
|
0 |
0 |
unless $MEVENT |
|
757
|
0 |
0 |
if defined $return and $return ne 'DELEGATE' |
|
769
|
0 |
0 |
unless defined $tree |
|
780
|
0 |
0 |
defined $$testobj{-'borderscr'} ? : |
|
784
|
0 |
0 |
if ($x >= $$winp{-'x'} and $x < $$winp{-'x'} + $$winp{-'w'} and $y >= $$winp{-'y'} and $y < $$winp{-'y'} + $$winp{-'h'}) |
|
789
|
0 |
0 |
if ($testobj->isa('Curses::UI::Container') and not $testobj->isa('Curses::UI::ContainerWidget')) { } |
|
814
|
0 |
0 |
unless defined $exit |
|
832
|
0 |
0 |
if $key ne '-1' |
|
849
|
9 |
16 |
unless (defined $INC{$file}) |
|
858
|
0 |
9 |
if $@ |
|
875
|
3 |
6 |
unless defined $p_el |
|
878
|
0 |
6 |
if $p_obj->isa('Curses::UI::ContainerWidget') |
|
881
|
0 |
3 |
defined $index ? : |
|
897
|
6 |
0 |
if not $class =~ /\:\:/ or $class =~ /^Dialog\:\:[^\:]+$/ |
|
903
|
0 |
6 |
unless $class->isa('Curses::UI::Window') |
|
915
|
1 |
1 |
if (defined $_[0]) |
|
956
|
0 |
0 |
if (@_ == 1) |
|
994
|
0 |
0 |
unless (defined $args{-'title'}) |
|
1009
|
0 |
0 |
unless (defined $args{-'title'}) |
|
1026
|
0 |
0 |
unless defined $args{-'title'} |
|
1031
|
0 |
0 |
unless defined $file |
|
1035
|
0 |
0 |
if (-e $file) |
|
1047
|
0 |
0 |
unless $overwrite |
|
1059
|
0 |
0 |
unless (defined $args{-'title'}) |
|
1121
|
0 |
0 |
unless defined $p |
|
1122
|
0 |
0 |
if defined $pos |
|
1123
|
0 |
0 |
if defined $message |