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/
649 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
819 4 0 0 $lex || $debug and @tokens
839 2 8 0 @$toks and $toks->[0]{'lex'} eq 'CONNECTIVE'
872 10 2 0 @Dstack and ($Dstack[-1]{'V'}{'lex'} || '') eq 'OWNER_D'
878 2 4 6 $Vstack[-1]{'lex'} =~ /^SUBNAME_?A?D?$/ and not $lookahead->{'lex'} =~ /PERIOD|DO|END|CONNECTIVE/
885 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
890 0 0 6 $needA && @Astack > 1
892 6 0 0 $Dindir and $verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/
914 0 0 0 $ord->{'lex'} and $ord->{'lex'} eq 'NUMERAL'
930 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/
933 2 4 0 $1 eq 'NUMERAL' and $toks->[0]{'lex'} eq 'ORDINAL'
994 0 2 0 $ord->{'lex'} and $ord->{'lex'} eq 'NUMERAL'
1011 0 0 8 $lastownable and @Astack > 1
0 2 6 $lastownable and @Astack > 1 and $lastownable == $Astack[-1]{'data'}
1013 0 8 0 @Astack > 1 and $Astack[-1]{'complete'}
1048 0 4 0 &$reduce($tok) and not $Vdone
1050 4 0 0 $connective and not $Vdone || @Astack <= 1
1056 0 0 0 &$reduce($tok) and not $Vdone
1083 0 10 0 $Vdone and @Vstack
1090 10 0 0 @Astack > 1 and not @Vstack
1092 10 0 0 @Dstack and not @Vstack
1164 0 0 0 ($self->{'perl'} || '') eq 'while' and ($self->{'C'}{'V'}{'perl'} || '') eq 'Lingua::Romana::Perligata::getline'
1210 6 0 0 $verb =~ /^(bless)$/ && $dative =~ /^[%\@]/
1212 0 2 0 $dative && defined $_[0]{'A'} && !$hasblock && !($verb =~ /^(print|printf)$/)
1213 0 0 0 $prefix and $dative
1440 6 2 0 $context and $context->{'raw'} =~ /^inque/

or 2 conditions

line l !l condition
109 0 0 $_ or 0
872 2 0 $Dstack[-1]{'V'}{'lex'} || ''
883 2 4 $needD ||= ''
1164 0 0 $self->{'perl'} || ''
0 0 $self->{'C'}{'V'}{'perl'} || ''
1269 0 6 $_[0]{'R'} || 0
1389 0 4 $_[0]{'R'} || 0
1454 0 6 $_[0]{'R'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
819 0 0 4 $lex || $debug
878 6 0 6 $Vstack[-1]{'lex'} =~ /^SUBNAME_?A?D?$/ and not $lookahead->{'lex'} =~ /PERIOD|DO|END|CONNECTIVE/ or ref $Vstack[-1] eq 'STATEMENT'
882 4 2 0 $needA ||= $verb->{'lex'} eq 'SUBNAME' ? 'OA' : ''
885 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
892 0 0 6 $verb->{'lex'} =~ /SUBNAME_.*_ACCUSATIVE/ or $Dindir and $verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/
930 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'
1050 0 0 0 $Vdone || @Astack <= 1
1058 0 0 0 $Vdone or @Astack <= 1
1069 0 0 0 pop(@Astack)->{'data'} || pop @Dstack
1094 10 0 0 $Vdone or $empty
1141 0 0 2 $self->{'C'}{'lex'} || $self->{'C'}{'V'}{'lex'}
1168 0 0 0 not @$toks or $toks->[0]{'lex'} =~ /PERIOD|CONNECTIVE/
1205 0 0 6 $_[0]{'V'}{'lex'} eq 'OWNER_D' && $_[0]{'V'}{'raw'} =~ /o$/ || $_[0]{'V'}{'raw'} =~ /^(finis|nuntius|factor(em|i))$/ || $hasblock