| blib/lib/MarpaX/Database/Terminfo/Interface.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 64 | 149 | 42.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 79 | 0 | 16 | 0 | not $db_ok and $txt |
| 181 | 1 | 0 | 15 | not $cached_stubs_as_txt_ok and $stubs_bin |
| 254 | 7817 | 0 | 0 | $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_terminfo_db'} |
| 266 | 5549 | 0 | 0 | $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_terminfo_current'} |
| 275 | 819324 | 0 | 0 | $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_t2other'} |
| 284 | 0 | 0 | 0 | $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_c2other'} |
| 293 | 0 | 0 | 0 | $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_capalias'} |
| 302 | 0 | 0 | 0 | $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $self->{'_infoalias'} |
| 377 | 197649 | 13094 | 1051 | $feature->{'type'} == 0 and substr($feature->{'name'}, -1, 1) eq '@' |
| 23016 | 185261 | 2466 | $feature->{'type'} == 2 and $feature->{'name'} eq 'use' | |
| 432 | 195183 | 13094 | 1051 | $_->{'type'} == 0 and substr($_->{'name'}, -1, 1) eq '@' |
| 885 | 9 | 21 | 0 | defined $default_if_cancelled and exists $self->_terminfo_current->{'cancelled'}{$feature->{'name'}} |
| 911 | 18 | 15 | 12 | defined $found and defined $areap |
| 33 | 0 | 12 | defined $found and defined $areap and ref $areap | |
| 1059 | 0 | 0 | 0 | !$xon_xoff && $padding_baud_rate && $baudrate >= $padding_baud_rate |
| 1064 | 3 | 0 | 0 | $self->{'_bsd_tputs'} and length $str > 0 |
| 1094 | 2 | 0 | 0 | not $c =~ /[[:digit:]]/ and $c ne '.' |
| 1119 | 0 | 0 | 0 | $index <= $indexmax and substr($str, $index, 1) =~ /[[:digit:]]/ |
| 1136 | 0 | 2 | 0 | $number > 0 and $always_delay || $normal_delay || $mandatory |
| 1145 | 3 | 0 | 0 | $trailpad > 0 and $always_delay || $normal_delay |
| line | l | !l | condition |
|---|---|---|---|
| 24 | 3 | 13 | $optp //= {} |
| 30 | 0 | 16 | ($optp->{'file'} // $ENV{'MARPAX_DATABASE_TERMINFO_FILE'}) // '' |
| 31 | 0 | 16 | ($optp->{'txt'} // $ENV{'MARPAX_DATABASE_TERMINFO_TXT'}) // '' |
| 39 | 0 | 16 | ($optp->{'cache_stubs_as_txt'} // $ENV{'MARPAX_DATABASE_TERMINFO_CACHE_STUBS_AS_TXT'}) // 1 |
| 40 | 0 | 16 | ($optp->{'cache_stubs'} // $ENV{'MARPAX_DATABASE_TERMINFO_CACHE_STUBS'}) // 1 |
| 44 | 1 | 15 | ($optp->{'stubs_txt'} // $ENV{'MARPAX_DATABASE_TERMINFO_STUBS_TXT'}) // '' |
| 50 | 0 | 16 | ($optp->{'bsd_tputs'} // $ENV{'MARPAX_DATABASE_TERMINFO_BSD_TPUTS'}) // 0 |
| 51 | 0 | 13 | ($optp->{'use_env'} // $ENV{'MARPAX_DATABASE_TERMINFO_USE_ENV'}) // 1 |
| 312 | 16 | 0 | $ENV{'TERM'} || 'unknown' |
| 331 | 2466 | 2675 | $from //= '' |
| 786 | 0 | 0 | $reffh || ' |
| 802 | 0 | 2673 | fileno \*STDIN || 0 |
| 846 | 2675 | 0 | $ENV{'MARPAX_DATABASE_TERMINFO_BAUDRATE'} || $OSPEED_TO_BAUDRATE{$ospeed} || 0 |
| 916 | 2 | 8 | pos ${$areap;} || 0 |
| 1035 | 3 | 0 | $affcnt //= 1 |
| 1079 | 0 | 3 | pos $str || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 30 | 0 | 0 | 16 | $optp->{'file'} // $ENV{'MARPAX_DATABASE_TERMINFO_FILE'} |
| 31 | 0 | 0 | 16 | $optp->{'txt'} // $ENV{'MARPAX_DATABASE_TERMINFO_TXT'} |
| 32 | 0 | 0 | 16 | $optp->{'bin'} // $ENV{'MARPAX_DATABASE_TERMINFO_BIN'} |
| 0 | 16 | 0 | ($optp->{'bin'} // $ENV{'MARPAX_DATABASE_TERMINFO_BIN'}) // dist_file('MarpaX-Database-Terminfo', 'share/ncurses-terminfo.sereal') | |
| 34 | 0 | 0 | 16 | $optp->{'caps'} // $ENV{'MARPAX_DATABASE_TERMINFO_CAPS'} |
| 0 | 0 | 16 | ($optp->{'caps'} // $ENV{'MARPAX_DATABASE_TERMINFO_CAPS'}) // ($^O eq 'aix' ? dist_file('MarpaX-Database-Terminfo', 'share/ncurses-Caps.aix4') : ($^O eq 'hpux' ? dist_file('MarpaX-Database-Terminfo', 'share/ncurses-Caps.hpux11') : ($^O eq 'dec_osf' ? dist_file('MarpaX-Database-Terminfo', 'share/ncurses-Caps.osf1r5') : dist_file('MarpaX-Database-Terminfo', 'share/ncurses-Caps')))) | |
| 39 | 0 | 0 | 16 | $optp->{'cache_stubs_as_txt'} // $ENV{'MARPAX_DATABASE_TERMINFO_CACHE_STUBS_AS_TXT'} |
| 40 | 0 | 0 | 16 | $optp->{'cache_stubs'} // $ENV{'MARPAX_DATABASE_TERMINFO_CACHE_STUBS'} |
| 44 | 0 | 0 | 16 | $optp->{'stubs_txt'} // $ENV{'MARPAX_DATABASE_TERMINFO_STUBS_TXT'} |
| 45 | 0 | 0 | 16 | $optp->{'stubs_bin'} // $ENV{'MARPAX_DATABASE_TERMINFO_STUBS_BIN'} |
| 0 | 16 | 0 | ($optp->{'stubs_bin'} // $ENV{'MARPAX_DATABASE_TERMINFO_STUBS_BIN'}) // dist_file('MarpaX-Database-Terminfo', 'share/ncurses-terminfo-stubs.sereal') | |
| 50 | 0 | 0 | 16 | $optp->{'bsd_tputs'} // $ENV{'MARPAX_DATABASE_TERMINFO_BSD_TPUTS'} |
| 51 | 3 | 0 | 13 | $optp->{'use_env'} // $ENV{'MARPAX_DATABASE_TERMINFO_USE_ENV'} |
| 937 | 0 | 1 | 1 | $self->tvgetflag('no_pad_char') or not $self->tvgetstr('PC', \$PC) |
| 1058 | 0 | 0 | 0 | $str eq $bell || $str eq $flash_screen |
| 1094 | 0 | 0 | 2 | not $c =~ /[[:digit:]]/ and $c ne '.' or index($str, '>', $index) < $index |
| 1125 | 0 | 0 | 2 | $c eq '*' or $c eq '/' |
| 1136 | 2 | 0 | 0 | $always_delay || $normal_delay || $mandatory |
| 1145 | 0 | 0 | 0 | $always_delay || $normal_delay |