Condition Coverage

blib/lib/MarpaX/Database/Terminfo/Interface.pm
Criterion Covered Total %
condition 64 149 42.9


and 3 conditions

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

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 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

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.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