Condition Coverage

blib/lib/Lingua/Romana/Perligata.pm
Criterion Covered Total %
condition 64 169 37.8


and 3 conditions

line !l l&&!r l&&r condition
45 4 0 0 $debug and /\S/
654 56 0 0 $text =~ s/\A(($roman)im(?:o|ae)(que|ve|))\b//xi and length $2
56 0 0 $text =~ s/\A(($roman)im(?:um|os|am|as)(que|ve|))\b//xi and length $2
6 48 2 $text =~ s/\A(($roman)(que|ve|))\b//xi and length $2
968 4 0 0 $lex || $debug and @tokens
988 2 8 0 @$toks and $toks->[0]{'lex'} eq 'CONNECTIVE'
1021 10 2 0 @Dstack and ($Dstack[-1]{'V'}{'lex'} || '') eq 'OWNER_D'
1027 2 4 6 $Vstack[-1]{'lex'} =~ /^SUBNAME_?A?D?$/ and not $lookahead->{'lex'} =~ /PERIOD|DO|END|CONNECTIVE/
1034 0 2 4 $needA and $needA ne 'OA'
2 4 0 $needA and $needA ne 'OA' and @Astack <= 1 || !$Astack[-1]{'complete'}
4 2 0 $needD eq 'D' and not @Dstack
6 0 0 $needD eq 'B' and not @Bstack
1039 0 0 6 $needA && @Astack > 1
1041 6 0 0 $Dindir and $verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/
1063 0 0 0 $ord->{'lex'} and $ord->{'lex'} eq 'NUMERAL'
1079 36 0 0 $Dindir and $tok->{'lex'} eq 'ORDINAL_DATIVE'
28 0 0 $Dindir and $tok->{'lex'} eq 'DATIVE'
0 0 2 $eatend and $tok->{'lex'} =~ /$eatend/
0 0 0 $noeatend and $tok->{'lex'} =~ /$noeatend/
1082 2 4 0 $1 eq 'NUMERAL' and $toks->[0]{'lex'} eq 'ORDINAL'
1143 0 2 0 $ord->{'lex'} and $ord->{'lex'} eq 'NUMERAL'
1160 0 0 8 $lastownable and @Astack > 1
0 2 6 $lastownable and @Astack > 1 and $lastownable == $Astack[-1]{'data'}
1162 0 0 8 @Astack > 1 and $Astack[-1]{'complete'}
1197 0 4 0 &$reduce($tok) and not $Vdone
1199 4 0 0 $connective and not $Vdone || @Astack <= 1
1205 0 0 0 &$reduce($tok) and not $Vdone
1232 0 10 0 $Vdone and @Vstack
1239 10 0 0 @Astack > 1 and not @Vstack
1241 10 0 0 @Dstack and not @Vstack
1313 0 0 0 ($self->{'perl'} || '') eq 'while' and ($self->{'C'}{'V'}{'perl'} || '') eq 'Lingua::Romana::Perligata::getline'
1359 6 0 0 $verb =~ /^(bless)$/ && $dative =~ /^[%\@]/
1361 0 2 0 $dative && defined $_[0]{'A'} && !$hasblock && !($verb =~ /^(print|printf)$/)
1362 0 0 0 $prefix and $dative
1589 6 2 0 $context and $context->{'raw'} =~ /^inque/

or 2 conditions

line l !l condition
109 0 0 $_ or 0
1021 2 0 $Dstack[-1]{'V'}{'lex'} || ''
1032 2 4 $needD ||= ''
1313 0 0 $self->{'perl'} || ''
0 0 $self->{'C'}{'V'}{'perl'} || ''
1418 0 6 $_[0]{'R'} || 0
1538 0 4 $_[0]{'R'} || 0
1603 0 6 $_[0]{'R'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
968 0 0 4 $lex || $debug
1027 6 0 6 $Vstack[-1]{'lex'} =~ /^SUBNAME_?A?D?$/ and not $lookahead->{'lex'} =~ /PERIOD|DO|END|CONNECTIVE/ or ref $Vstack[-1] eq 'STATEMENT'
1031 4 2 0 $needA ||= $verb->{'lex'} eq 'SUBNAME' ? 'OA' : ''
1034 0 0 4 @Astack <= 1 || !$Astack[-1]{'complete'}
0 0 6 $needA and $needA ne 'OA' and @Astack <= 1 || !$Astack[-1]{'complete'} or $needD eq 'D' and not @Dstack
0 0 6 $needA and $needA ne 'OA' and @Astack <= 1 || !$Astack[-1]{'complete'} or $needD eq 'D' and not @Dstack or $needD eq 'B' and not @Bstack
1041 0 0 6 $verb->{'lex'} =~ /SUBNAME_.*_ACCUSATIVE/ or $Dindir and $verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/
1079 6 0 36 $tok->{'lex'} =~ /^(NUMERAL|ORDINAL)$/ or $Dindir and $tok->{'lex'} eq 'ORDINAL_DATIVE'
8 0 28 $tok->{'lex'} =~ /^(?:ACCUSATIVE|NAME)$/ or $Dindir and $tok->{'lex'} eq 'DATIVE'
1199 0 0 0 $Vdone || @Astack <= 1
1207 0 0 0 $Vdone or @Astack <= 1
1218 0 0 0 pop(@Astack)->{'data'} || pop @Dstack
1243 10 0 0 $Vdone or $empty
1290 0 2 0 $self->{'C'}{'lex'} || $self->{'C'}{'V'}{'lex'}
1317 0 0 0 not @$toks or $toks->[0]{'lex'} =~ /PERIOD|CONNECTIVE/
1354 0 0 6 $_[0]{'V'}{'lex'} eq 'OWNER_D' && $_[0]{'V'}{'raw'} =~ /o$/ || $_[0]{'V'}{'raw'} =~ /^(finis|nuntius|factor(em|i))$/ || $hasblock