Condition Coverage

blib/lib/MarpaX/Database/Terminfo/Interface.pm
Criterion Covered Total %
condition 66 149 44.3


and 3 conditions

line !l l&&!r l&&r condition
79 0 16 0 not $db_ok and $txt
197 1 0 15 not $cached_stubs_as_txt_ok and $stubs_bin
247 7817 0 0 $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $$self{'_terminfo_db'}
259 5549 0 0 $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $$self{'_terminfo_current'}
268 819324 0 0 $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $$self{'_t2other'}
277 0 0 0 $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $$self{'_c2other'}
286 0 0 0 $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $$self{'_capalias'}
295 0 0 0 $MarpaX::Database::Terminfo::Interface::log->is_warn and not defined $$self{'_infoalias'}
370 197649 13094 1051 $$feature{'type'} == 0 and substr($$feature{'name'}, -1, 1) eq '@'
23016 185261 2466 $$feature{'type'} == 2 and $$feature{'name'} eq 'use'
425 195183 13094 1051 $$_{'type'} == 0 and substr($$_{'name'}, -1, 1) eq '@'
874 9 21 0 defined $default_if_cancelled and exists $self->_terminfo_current->{'cancelled'}{$$feature{'name'}}
900 18 15 12 defined $found and defined $areap
33 0 12 defined $found and defined $areap and ref $areap
1048 0 0 0 !$xon_xoff && $padding_baud_rate && $baudrate >= $padding_baud_rate
1053 3 0 0 $$self{'_bsd_tputs'} and length $str > 0
1083 2 0 0 not $c =~ /[[:digit:]]/ and $c ne '.'
1108 0 0 0 $index <= $indexmax and substr($str, $index, 1) =~ /[[:digit:]]/
1125 0 2 0 $number > 0 and $always_delay || $normal_delay || $mandatory
1134 3 0 0 $trailpad > 0 and $always_delay || $normal_delay

or 2 conditions

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 3 13 ($$optp{'use_env'} // $ENV{'MARPAX_DATABASE_TERMINFO_USE_ENV'}) // 1
305 16 0 $ENV{'TERM'} || 'unknown'
324 2466 2675 $from //= ''
775 0 0 $reffh || ''
791 0 2673 fileno \*STDIN || 0
835 2675 0 $ENV{'MARPAX_DATABASE_TERMINFO_BAUDRATE'} || $OSPEED_TO_BAUDRATE{$ospeed} || 0
905 2 8 pos ${$areap;} || 0
1024 3 0 $affcnt //= 1
1068 0 3 pos $str || 0

or 3 conditions

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.storable')
33 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 1 15 $$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.storable')
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'}
926 0 1 1 $self->tvgetflag('no_pad_char') or not $self->tvgetstr('PC', \$PC)
1047 0 0 0 $str eq $bell || $str eq $flash_screen
1083 0 0 2 not $c =~ /[[:digit:]]/ and $c ne '.' or index($str, '>', $index) < $index
1114 0 0 2 $c eq '*' or $c eq '/'
1125 2 0 0 $always_delay || $normal_delay || $mandatory
1134 0 0 0 $always_delay || $normal_delay