| line |
true |
false |
branch |
|
37
|
0 |
4 |
if $status < 0 |
|
45
|
0 |
0 |
if print "$_;\n" |
|
|
0 |
4 |
if ($translate) { } |
|
|
0 |
8 |
elsif ($debug and /\S/) { } |
|
58
|
0 |
0 |
unless $_[0] =~ /(.*)at\s+(\S+)\s+line\s+(\d+)(.*)/s |
|
91
|
0 |
2 |
unless join('', @numerals) eq $val |
|
104
|
0 |
0 |
if $_[0] == 0 |
|
106
|
0 |
0 |
if grep {/\D/;} @digits |
|
115
|
0 |
0 |
if (wantarray) { } |
|
117
|
0 |
0 |
$1 ? : |
|
122
|
0 |
0 |
$1 ? : |
|
159
|
278 |
76 |
unless $genkey =~ s/$from$/$to/ |
|
654
|
0 |
56 |
if ($text =~ s/\A(adnota.*)//i) { } |
|
|
0 |
56 |
elsif ($text =~ s/\A(nuntius|finis)[ \t]*[.]?[ \t]*\n(.*)//ism) { } |
|
|
0 |
56 |
elsif ($text =~ s/\Adic(?:emen)?tum(que|ve|)\s+sic\s+\b(.*?)\s+cis\b//is) { } |
|
|
0 |
56 |
elsif ($text =~ s/\Asic(que|ve|)\s+(.*?)\s+cis\s+dic(?:emen)?tum\b//is) { } |
|
|
0 |
56 |
elsif ($text =~ s/\A(atque|vel)\b//i) { } |
|
|
0 |
56 |
elsif ($text =~ s/\A(($roman)im(?:o|ae)(que|ve|))\b//xi and length $2) { } |
|
|
0 |
56 |
elsif ($text =~ s/\A(($roman)im(?:um|os|am|as)(que|ve|))\b//xi and length $2) { } |
|
|
2 |
54 |
elsif ($text =~ s/\A(($roman)(que|ve|))\b//xi and length $2) { } |
|
|
0 |
54 |
elsif ($text =~ s/$tokensque//i) { } |
|
|
0 |
54 |
elsif ($text =~ s/$tokensve//i) { } |
|
|
38 |
16 |
elsif ($text =~ s/$tokens//i) { } |
|
|
0 |
16 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*?)(um|)ementum)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
16 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*?)(um|)ementa)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
16 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*?)(um|)emento)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
16 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*?)(um|)ementis)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
16 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)orum)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
16 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)uum)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
4 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)um)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)a)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)ibus)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)us)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)o)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)is)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)tori)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
12 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)i)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
2 |
10 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)ere)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
2 |
8 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*?)(um|)e)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
0 |
8 |
elsif ($text =~ s/\A(([a-z_][0-9a-z_]*)torem)(que|ve|)((?:\s+)sicut)?\b//i) { } |
|
|
4 |
4 |
elsif ($text =~ s/\A([.])//) { } |
|
|
2 |
2 |
elsif ($text =~ s/\A(\S+)(que|ve|)((?:\s+)sicut)?\b//) { } |
|
670
|
0 |
0 |
if $1 |
|
675
|
0 |
0 |
if $1 |
|
685
|
0 |
0 |
if $+ |
|
690
|
0 |
0 |
if $+ |
|
695
|
0 |
2 |
if $+ |
|
714
|
0 |
0 |
if ($5) { } |
|
716
|
0 |
0 |
$4 ? : |
|
721
|
0 |
0 |
if $4 |
|
722
|
0 |
0 |
$3 ? : |
|
728
|
0 |
0 |
if ($5) { } |
|
730
|
0 |
0 |
$4 ? : |
|
735
|
0 |
0 |
if $4 |
|
736
|
0 |
0 |
$3 ? : |
|
742
|
0 |
0 |
if ($5) { } |
|
744
|
0 |
0 |
$4 ? : |
|
749
|
0 |
0 |
if $4 |
|
750
|
0 |
0 |
$3 ? : |
|
756
|
0 |
0 |
if ($5) { } |
|
758
|
0 |
0 |
$4 ? : |
|
774
|
0 |
0 |
if ($4) { } |
|
776
|
0 |
0 |
$3 ? : |
|
781
|
0 |
0 |
if $3 |
|
787
|
0 |
0 |
if ($4) { } |
|
789
|
0 |
0 |
$3 ? : |
|
794
|
0 |
0 |
if $3 |
|
800
|
0 |
4 |
if ($4) { } |
|
802
|
0 |
0 |
$3 ? : |
|
807
|
0 |
4 |
if $3 |
|
813
|
0 |
0 |
if ($4) { } |
|
815
|
0 |
0 |
$3 ? : |
|
820
|
0 |
0 |
if $3 |
|
826
|
0 |
0 |
if ($4) { } |
|
828
|
0 |
0 |
$3 ? : |
|
833
|
0 |
0 |
if $3 |
|
839
|
0 |
0 |
if ($4) { } |
|
841
|
0 |
0 |
$3 ? : |
|
846
|
0 |
0 |
if $3 |
|
852
|
0 |
0 |
if ($4) { } |
|
854
|
0 |
0 |
$3 ? : |
|
859
|
0 |
0 |
if $3 |
|
865
|
0 |
0 |
if ($4) { } |
|
867
|
0 |
0 |
$3 ? : |
|
872
|
0 |
0 |
if $3 |
|
878
|
0 |
0 |
if ($4) { } |
|
880
|
0 |
0 |
$3 ? : |
|
885
|
0 |
0 |
if $3 |
|
891
|
0 |
0 |
if ($4) { } |
|
893
|
0 |
0 |
$3 ? : |
|
898
|
0 |
0 |
if $3 |
|
904
|
0 |
2 |
if ($4) { } |
|
906
|
0 |
0 |
$3 ? : |
|
911
|
0 |
2 |
if $3 |
|
917
|
0 |
2 |
if ($5) { } |
|
919
|
0 |
0 |
$4 ? : |
|
924
|
0 |
2 |
if $4 |
|
925
|
0 |
2 |
$3 ? : |
|
931
|
0 |
0 |
if ($4) { } |
|
933
|
0 |
0 |
$3 ? : |
|
938
|
0 |
0 |
if $3 |
|
948
|
0 |
2 |
if ($3) { } |
|
950
|
0 |
0 |
$2 ? : |
|
951
|
0 |
0 |
if $token |
|
955
|
0 |
2 |
if $2 |
|
956
|
2 |
0 |
if $1 |
|
961
|
2 |
0 |
unless $text =~ s/\A(\S+)// |
|
966
|
54 |
0 |
if @tokens |
|
968
|
0 |
4 |
if ($lex || $debug and @tokens) |
|
976
|
0 |
0 |
if $lex |
|
979
|
0 |
4 |
if $bad |
|
1008
|
6 |
8 |
if ($Astack[-1]{'complete'}) { } |
|
1009
|
0 |
6 |
if @Astack > 1 |
|
1020
|
12 |
12 |
unless (@Vstack) |
|
1021
|
0 |
12 |
if (@Dstack and ($Dstack[-1]{'V'}{'lex'} || '') eq 'OWNER_D') |
|
1027
|
6 |
6 |
if $Vstack[-1]{'lex'} =~ /^SUBNAME_?A?D?$/ and not $lookahead->{'lex'} =~ /PERIOD|DO|END|CONNECTIVE/ or ref $Vstack[-1] eq 'STATEMENT' |
|
1031
|
2 |
0 |
$verb->{'lex'} eq 'SUBNAME' ? : |
|
1034
|
0 |
6 |
if $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 |
|
1036
|
0 |
4 |
$needD eq 'B' ? : |
|
|
2 |
4 |
$needD eq 'D' ? : |
|
1039
|
6 |
0 |
$needA && @Astack > 1 ? : |
|
1041
|
0 |
6 |
if ($verb->{'lex'} =~ /SUBNAME_.*_ACCUSATIVE/ or $Dindir and $verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/) { } |
|
|
2 |
4 |
elsif ($verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/) { } |
|
|
0 |
4 |
elsif ($verb->{'lex'} =~ /SUBNAME_.*_GENITIVE/) { } |
|
1044
|
0 |
0 |
if ($verb->{'lex'} =~ /SUBNAME_.*_DATIVE|OWNER_D/) |
|
1057
|
0 |
0 |
unless $lastsubstantive |
|
1063
|
0 |
0 |
if $ord->{'lex'} and $ord->{'lex'} eq 'NUMERAL' |
|
1068
|
0 |
6 |
if ($debug) |
|
1076
|
0 |
42 |
if ($debug) |
|
1079
|
6 |
36 |
if ($tok->{'lex'} =~ /^(NUMERAL|ORDINAL)$/ or $Dindir and $tok->{'lex'} eq 'ORDINAL_DATIVE') { } |
|
|
0 |
36 |
elsif ($tok->{'lex'} eq 'ORDINAL_DATIVE') { } |
|
|
0 |
36 |
elsif ($tok->{'lex'} eq 'WITH') { } |
|
|
8 |
28 |
elsif ($tok->{'lex'} =~ /^(?:ACCUSATIVE|NAME)$/ or $Dindir and $tok->{'lex'} eq 'DATIVE') { } |
|
|
0 |
28 |
elsif ($tok->{'lex'} eq 'ARROW') { } |
|
|
0 |
28 |
elsif ($tok->{'lex'} eq 'WITHIN') { } |
|
|
2 |
26 |
elsif ($tok->{'lex'} eq 'GENITIVE') { } |
|
|
2 |
24 |
elsif ($tok->{'lex'} eq 'INFINITIVE') { } |
|
|
0 |
24 |
elsif ($tok->{'lex'} eq 'CONTROL') { } |
|
|
2 |
22 |
elsif ($tok->{'lex'} eq 'FOR') { } |
|
|
0 |
22 |
elsif ($tok->{'lex'} eq 'BEGIN') { } |
|
|
0 |
22 |
elsif ($tok->{'lex'} eq 'OWNER_D') { } |
|
|
8 |
14 |
elsif ($tok->{'lex'} eq 'COMMA') { } |
|
|
0 |
14 |
elsif ($tok->{'lex'} eq 'ADDRESS') { } |
|
|
2 |
12 |
elsif ($tok->{'lex'} eq 'DATIVE') { } |
|
|
6 |
6 |
elsif ($tok->{'lex'} =~ /^SUBNAME/) { } |
|
|
4 |
2 |
elsif ($tok->{'lex'} =~ /PERIOD/) { } |
|
|
0 |
2 |
elsif ($tok->{'lex'} =~ /CONNECTIVE/) { } |
|
|
2 |
0 |
elsif ($eatend and $tok->{'lex'} =~ /$eatend/) { } |
|
|
0 |
0 |
elsif ($noeatend and $tok->{'lex'} =~ /$noeatend/) { } |
|
1082
|
0 |
6 |
if ($1 eq 'NUMERAL' and $toks->[0]{'lex'} eq 'ORDINAL') |
|
1087
|
0 |
6 |
if ($tok->{'lex'} eq 'ORDINAL_DATIVE') |
|
1108
|
0 |
8 |
if ($tok->{'lex'} eq 'DATIVE') |
|
1121
|
0 |
0 |
$owner->{'perl'} =~ /^\W/ ? : |
|
1137
|
0 |
2 |
unless @lastsubstantive |
|
1143
|
0 |
2 |
if $ord->{'lex'} and $ord->{'lex'} eq 'NUMERAL' |
|
1160
|
2 |
6 |
unless $lastownable and @Astack > 1 and $lastownable == $Astack[-1]{'data'} |
|
1162
|
0 |
8 |
unless @Astack > 1 and $Astack[-1]{'complete'} |
|
1177
|
6 |
0 |
if ($Astack[-1]{'complete'}) { } |
|
|
0 |
0 |
elsif (not $tok->{'perl'} =~ /^(and|or|[&|]{2})$/) { } |
|
1199
|
0 |
4 |
if $connective and not $Vdone || @Astack <= 1 |
|
1207
|
0 |
0 |
unless $Vdone or @Astack <= 1 |
|
1213
|
0 |
2 |
@Astack > 1 ? : |
|
|
2 |
0 |
unless $Vdone |
|
1218
|
0 |
0 |
unless $Vdone |
|
1226
|
0 |
32 |
if ($debug) |
|
1232
|
0 |
0 |
!($Vstack[-1]{'lex'} =~ /(ACCUSATIVE|DATIVE)$/) ? : |
|
|
0 |
10 |
if $Vdone and @Vstack |
|
1239
|
0 |
10 |
if @Astack > 1 and not @Vstack |
|
1241
|
0 |
10 |
if @Dstack and not @Vstack |
|
1243
|
0 |
10 |
unless $Vdone or $empty |
|
1245
|
0 |
6 |
ref $Vdone eq 'ARRAY' ? : |
|
|
4 |
6 |
$empty ? : |
|
1256
|
0 |
4 |
unless $next->{'lex'} eq 'BEGIN' |
|
1259
|
4 |
0 |
if $command |
|
1263
|
0 |
4 |
unless $next->{'lex'} eq 'END' |
|
1284
|
0 |
0 |
$toks->[0]{'lex'} ne 'IN' ? : |
|
|
2 |
0 |
$toks->[0]{'lex'} eq 'ACCUSATIVE' ? : |
|
1287
|
0 |
2 |
unless $in->{'lex'} eq 'IN' |
|
1290
|
0 |
2 |
unless (($self->{'C'}{'lex'} || $self->{'C'}{'V'}{'lex'}) =~ /DATIVE|OWNER_D/) |
|
1293
|
0 |
0 |
$self->{'C'}{'lex'} ? : |
|
1296
|
0 |
2 |
if ($toks->[0]{'lex'} =~ /PERIOD|CONNECTIVE/) { } |
|
1297
|
0 |
0 |
unless @$Bstack |
|
1300
|
0 |
0 |
unless $toks->[0]{'lex'} eq 'CONNECTIVE' |
|
1313
|
0 |
0 |
if (($self->{'perl'} || '') eq 'while' and ($self->{'C'}{'V'}{'perl'} || '') eq 'Lingua::Romana::Perligata::getline') |
|
1317
|
0 |
0 |
if (not @$toks or $toks->[0]{'lex'} =~ /PERIOD|CONNECTIVE/) { } |
|
1318
|
0 |
0 |
unless @$Bstack |
|
1321
|
0 |
0 |
unless $toks->[0]{'lex'} eq 'CONNECTIVE' |
|
1358
|
2 |
4 |
defined $_[0]{'D'} ? : |
|
1359
|
0 |
6 |
$verb =~ /^(bless)$/ && $dative =~ /^[%\@]/ ? : |
|
1360
|
2 |
4 |
if $dative |
|
1361
|
0 |
6 |
$dative && defined $_[0]{'A'} && !$hasblock && !($verb =~ /^(print|printf)$/) ? : |
|
1362
|
0 |
6 |
if ($verb =~ /^(package|use)$/) { } |
|
|
0 |
6 |
elsif ($verb eq ':') { } |
|
|
0 |
6 |
elsif ($_[0]{'V'}{'diamond'}) { } |
|
|
0 |
6 |
elsif ($verb =~ /^[\$%\@]\{$/) { } |
|
|
6 |
0 |
elsif (not $_[0]{'V'}{'operator'}) { } |
|
|
0 |
0 |
elsif ($prefix and $dative) { } |
|
|
0 |
0 |
elsif ($prefix) { } |
|
|
0 |
0 |
elsif ($verb eq '=') { } |
|
1379
|
0 |
6 |
$noparen ? : |
|
|
6 |
0 |
defined $_[0]{'A'} ? : |
|
|
0 |
6 |
$noparen ? : |
|
1394
|
0 |
0 |
@{$_[0]{'A'};} > 1 ? : |
|
1399
|
0 |
0 |
unless $_[0]{'A'} |
|
1400
|
0 |
0 |
$verb =~ s/^!(<=>|cmp)/$1/ ? : |
|
1406
|
0 |
0 |
$Acount-- ? : |
|
|
0 |
0 |
$dative ? : |
|
|
0 |
0 |
$Acount ? : |
|
1409
|
0 |
6 |
if ($_[0]{'G'}) |
|
1510
|
0 |
2 |
if ($self->{'G'}) |
|
1529
|
0 |
4 |
if ($self->{'G'}) |
|
1566
|
0 |
2 |
unless $self->{'G'} |
|
1589
|
0 |
8 |
if ($context and $context->{'raw'} =~ /^inque/) { } |
|
|
0 |
8 |
elsif ($self->{'lex'} eq 'GENITIVE') { } |
|
|
0 |
8 |
elsif ($self->{'lex'} eq 'SUBNAME_A_GENITIVE') { } |
|
|
2 |
6 |
elsif ($self->{'lex'} eq 'INFINITIVE') { } |
|
1604
|
0 |
8 |
if ($self->{'G'}) |