line |
true |
false |
branch |
26
|
0 |
16 |
if (ref $optp ne 'HASH') |
34
|
0 |
16 |
$^O eq 'dec_osf' ? : |
|
0 |
16 |
$^O eq 'hpux' ? : |
|
0 |
16 |
$^O eq 'aix' ? : |
43
|
16 |
0 |
if ($cache_stubs) { } |
58
|
0 |
16 |
if ($file) |
60
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
63
|
0 |
0 |
if (not open($fh, '<', $file)) { } |
67
|
0 |
0 |
unless close $fh |
68
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
72
|
0 |
0 |
if ($@) { } |
79
|
0 |
16 |
if (not $db_ok and $txt) |
80
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
84
|
0 |
0 |
if ($@) { } |
90
|
16 |
0 |
unless $db_ok |
91
|
0 |
16 |
unless ($db_ok) |
102
|
0 |
16 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
106
|
0 |
16 |
if (not open($fh, '<', $caps)) { } |
115
|
11408 |
8752 |
if (/^\s*#/) |
119
|
704 |
8048 |
if (/^\s*capalias\b/) { } |
|
96 |
7952 |
elsif (/^\s*infoalias\b/) { } |
127
|
704 |
7248 |
if ($type eq 'bool') { } |
|
624 |
6624 |
elsif ($type eq 'num') { } |
|
6624 |
0 |
elsif ($type eq 'str') { } |
141
|
0 |
16 |
unless close $fh |
149
|
16 |
0 |
if ($cache_stubs) |
150
|
1 |
15 |
if ($stubs_txt) |
152
|
0 |
1 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
155
|
0 |
1 |
if (not open($fh, '<', $stubs_txt)) { } |
159
|
0 |
1 |
unless close $fh |
160
|
0 |
1 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
173
|
0 |
1 |
if ($@) { } |
181
|
15 |
1 |
if (not $cached_stubs_as_txt_ok and $stubs_bin) |
219
|
0 |
31 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
222
|
0 |
31 |
if (not open($fh, '<', $bin)) { } |
225
|
0 |
31 |
if (not binmode($fh)) { } |
229
|
0 |
31 |
if (not @stat) { } |
234
|
0 |
31 |
if (read($fh, $blob, $bytes) != $bytes) { } |
238
|
0 |
31 |
unless eval {
do {
$decoder->decode($blob, $_[0]);
$rc = 1
}
} |
245
|
0 |
31 |
unless close $fh |
254
|
0 |
7817 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_terminfo_db'}) |
263
|
2675 |
2874 |
if (@_) |
266
|
0 |
5549 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_terminfo_current'}) |
275
|
0 |
819324 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_t2other'}) |
284
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_c2other'}) |
293
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_capalias'}) |
302
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_infoalias'}) |
311
|
16 |
45 |
unless (defined $self->{'_terminfo_current'}) |
320
|
0 |
1 |
if (defined $cb) |
333
|
0 |
5141 |
if ($MarpaX::Database::Terminfo::Interface::log->is_debug) |
334
|
0 |
0 |
if ($from) { } |
342
|
5141 |
0 |
if (defined $terminfo_db) |
346
|
5141 |
3537341 |
if (grep {$_ eq $name;} @{$$terminfo{'alias'};}) |
347
|
0 |
5141 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
361
|
0 |
2675 |
unless (defined $self->_terminfo_db) |
365
|
0 |
2675 |
unless (defined $found) |
377
|
1051 |
210743 |
if ($feature->{'type'} == 0 and substr($feature->{'name'}, -1, 1) eq '@') { } |
|
2466 |
208277 |
elsif ($feature->{'type'} == 2 and $feature->{'name'} eq 'use') { } |
381
|
0 |
1051 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
386
|
0 |
2466 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
390
|
0 |
2466 |
unless (defined $insert) |
395
|
910 |
106851 |
if (exists $cancelled{$_->{'name'}}) |
396
|
0 |
910 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
401
|
6713 |
100138 |
if (exists $featured{$_->{'name'}}) |
402
|
0 |
6713 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
407
|
0 |
100138 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
414
|
0 |
208277 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
432
|
1051 |
208277 |
if ($_->{'type'} == 0 and substr($_->{'name'}, -1, 1) eq '@') |
433
|
0 |
1051 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
447
|
2 |
208275 |
if (substr($_->{'name'}, 0, 1) eq '.') |
448
|
0 |
2 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
474
|
208275 |
0 |
if (not exists $found->{'terminfo'}{$key}) { } |
477
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
484
|
4592 |
203683 |
unless (exists $self->_t2other->{$key}) |
485
|
0 |
4592 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
494
|
0 |
203683 |
if ($feature->{'type'} != $type) |
495
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
504
|
0 |
203683 |
if (not defined $termcap) { } |
505
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
509
|
0 |
203683 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
512
|
203683 |
0 |
if (not exists $found->{'termcap'}{$termcap}) { } |
515
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
524
|
0 |
203683 |
if (not defined $variable) { } |
525
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
529
|
0 |
203683 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
532
|
203683 |
0 |
if (not exists $found->{'variable'}{$variable}) { } |
536
|
180968 |
22715 |
if ($type == 2) |
537
|
15 |
180953 |
if ($variable eq 'pad_char') { } |
|
2452 |
178501 |
elsif ($variable eq 'cursor_up') { } |
|
20 |
178481 |
elsif ($variable eq 'backspace_if_not_bs') { } |
539
|
0 |
15 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
544
|
0 |
2452 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
549
|
0 |
20 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
555
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
566
|
15 |
2660 |
if (defined $pad_char) |
567
|
0 |
15 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
575
|
2452 |
223 |
if (defined $cursor_up) |
576
|
0 |
2452 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
584
|
20 |
2655 |
if (defined $backspace_if_not_bs) |
585
|
0 |
20 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
595
|
0 |
2675 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
603
|
0 |
2675 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
613
|
0 |
2675 |
if (exists $found->{'terminfo'}{'ospeed'}) |
614
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
619
|
0 |
2675 |
if (exists $found->{'terminfo'}{'baudrate'}) |
620
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
646
|
185265 |
0 |
if ($self->{'_cache_stubs'}) |
647
|
176711 |
8554 |
if (exists $self->{'_cached_stubs'}{$featurevalue}) |
648
|
0 |
176711 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
654
|
8554 |
176711 |
unless (exists $self->{'_stubs'}{$featurevalue}) |
656
|
8554 |
0 |
if ($self->{'_cache_stubs_as_txt'}) |
657
|
8552 |
2 |
if (exists $self->{'_cached_stubs_as_txt'}{$featurevalue}) |
658
|
0 |
8552 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
664
|
2 |
8552 |
unless (defined $stub_as_txt) |
674
|
0 |
2 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
698
|
0 |
2 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
701
|
2 |
0 |
if ($self->{'_cache_stubs_as_txt'}) |
705
|
0 |
8554 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
713
|
0 |
8554 |
if ($@) |
717
|
8554 |
0 |
if ($self->{'_cache_stubs'}) |
732
|
185259 |
28366 |
if ($feature->{'type'} == 2) |
782
|
0 |
2675 |
if (defined $fh) |
784
|
0 |
0 |
if ($reffh ne 'GLOB') |
785
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
792
|
2 |
2673 |
if (defined $ENV{'MARPAX_DATABASE_TERMINFO_OSPEED'}) { } |
795
|
2673 |
0 |
if ($HAVE_POSIX) |
797
|
0 |
2673 |
if (not defined $termios) { } |
798
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
802
|
0 |
2673 |
defined $fh ? : |
803
|
0 |
2673 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
807
|
0 |
2673 |
if ($@) |
808
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
814
|
2673 |
0 |
if (defined $termios) |
816
|
0 |
2673 |
if (not defined $this) { } |
817
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
822
|
0 |
2673 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
832
|
0 |
2675 |
unless (exists $OSPEED_TO_BAUDRATE{$ospeed}) |
833
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
839
|
2673 |
2 |
unless ($ospeed) |
841
|
0 |
2673 |
if ($MarpaX::Database::Terminfo::Interface::log->is_warn) |
848
|
0 |
2675 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
864
|
45 |
0 |
if ($self->_terminfo_init) |
868
|
15 |
30 |
if (not exists $self->_terminfo_current->{$space}{$id}) { } |
872
|
0 |
15 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
882
|
0 |
30 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
885
|
0 |
30 |
if (defined $default_if_cancelled and exists $self->_terminfo_current->{'cancelled'}{$feature->{'name'}}) { } |
886
|
0 |
0 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
894
|
27 |
3 |
if ($feature->{'type'} == $type) { } |
|
3 |
0 |
elsif (defined $default_if_wrong_type) { } |
896
|
20 |
7 |
if ($type == 2) { } |
897
|
7 |
13 |
defined $default_if_found ? : |
899
|
3 |
4 |
defined $default_if_found ? : |
902
|
0 |
3 |
if ($MarpaX::Database::Terminfo::Interface::log->is_trace) |
911
|
12 |
15 |
if (defined $found and defined $areap and ref $areap) |
912
|
10 |
2 |
if ($type == 2) { } |
913
|
3 |
7 |
unless (defined ${$areap;}) |
935
|
2 |
0 |
if (defined $outc) |
937
|
1 |
1 |
if ($self->tvgetflag('no_pad_char') or not $self->tvgetstr('PC', \$PC)) { } |
1045
|
3 |
0 |
if (not defined $self->{'_term'}) { } |
1058
|
0 |
0 |
$str eq $bell || $str eq $flash_screen ? : |
1059
|
0 |
0 |
!$xon_xoff && $padding_baud_rate && $baudrate >= $padding_baud_rate ? : |
1064
|
0 |
3 |
if ($self->{'_bsd_tputs'} and length $str > 0) |
1065
|
0 |
0 |
if ($str =~ /^([[:digit:]]+)(?:\.([[:digit:]])?[[:digit:]]*)?(\*)?/) |
1066
|
0 |
0 |
defined $-[2] ? : |
|
0 |
0 |
defined $-[3] ? : |
1072
|
0 |
0 |
if ($three) |
1082
|
51 |
2 |
if ($c ne '$') { } |
1086
|
2 |
0 |
$index <= $indexmax ? : |
1087
|
0 |
2 |
if ($c ne '<') { } |
1089
|
0 |
0 |
if ($c) |
1093
|
2 |
0 |
++$index <= $indexmax ? : |
1094
|
0 |
2 |
if (not $c =~ /[[:digit:]]/ and $c ne '.' or index($str, '>', $index) < $index) |
1106
|
2 |
0 |
$index <= $indexmax ? : |
1109
|
5 |
0 |
++$index <= $indexmax ? : |
1112
|
2 |
0 |
$index <= $indexmax ? : |
1113
|
0 |
2 |
if ($c eq '.') |
1114
|
0 |
0 |
$index <= $indexmax ? : |
1115
|
0 |
0 |
if ($c =~ /[[:digit:]]/) |
1124
|
2 |
0 |
$index <= $indexmax ? : |
1126
|
0 |
0 |
if ($c eq '*') { } |
1133
|
0 |
0 |
$index <= $indexmax ? : |
1136
|
2 |
0 |
if ($number > 0 and $always_delay || $normal_delay || $mandatory) |
1145
|
0 |
0 |
if ($trailpad > 0 and $always_delay || $normal_delay) |
1187
|
0 |
0 |
if (@_) |
1192
|
0 |
0 |
unless (defined $self->{'_use_env'}) |
1198
|
0 |
0 |
unless ($self->{'_use_env'}) |