| line |
true |
false |
branch |
|
23
|
0 |
0 |
if $length < 1 |
|
26
|
0 |
0 |
if (substr($_[0], 0, 2) =~ /gn|kn|pn|wr|ps/i) |
|
29
|
0 |
0 |
if (substr($_[0], 0, 1) =~ /x/i) |
|
36
|
0 |
0 |
if $c >= $length |
|
37
|
0 |
0 |
if (substr($_[0], $c, 1) =~ /a|\x{1ce}|e|i|o|o|u|y/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /b/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /ç/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /c/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /d/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /f/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /\x{1e7}/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /g/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /h/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /j/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /k/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /l/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /m/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /n/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /ñ/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /p/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /q/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /r/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /\x{15f}/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /s/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /t/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /v/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /w/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /x/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 1) =~ /z/i) { } |
|
38
|
0 |
0 |
if ($c == 0) { } |
|
|
0 |
0 |
elsif ($c + 1 == $last and substr($_[0], $c, 2) =~ /\x{1ce}u/i) { } |
|
52
|
0 |
0 |
if substr($_[0], $c, 1) =~ /b/i |
|
58
|
0 |
0 |
if ($c > 1 and not &is_vowel($_[0], $c - 2) and substr($_[0], $c - 1, 3) =~ /ach/i and (not substr($_[0], $c + 2, 1) =~ /i/i and !(substr($_[0], $c + 2, 1) =~ /e/i) || substr($_[0], $c - 2, 6) =~ /bacher|macher/i)) { } |
|
|
0 |
0 |
elsif ($c == 0 and substr($_[0], $c, 6) =~ /caesar/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 4) =~ /chia/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /ch/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /cz/i and not substr($_[0], $c - 2, 4) =~ /wicz/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 3) =~ /cia/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /cc/i and not $c == 1 && substr($_[0], 0, 1) =~ /m/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /ck|cg|cq/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /ci|ce|cy/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 2) =~ / c| g| q/i) { } |
|
75
|
0 |
0 |
if ($c > 0 and substr($_[0], $c, 4) =~ /chae/i) { } |
|
|
0 |
0 |
elsif ($c == 0 and substr($_[0], $c + 1, 5) =~ /harac|haris/i || substr($_[0], $c + 1, 3) =~ /hor|hym|hia|hem/i and not substr($_[0], 0, 5) =~ /chore/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], 0, 4) =~ /van |von /i or substr($_[0], 0, 3) =~ /sch/i or substr($_[0], $c - 2, 6) =~ /orches|archit|orchid/i or substr($_[0], $c + 2, 1) =~ /t|s/i or substr($_[0], $c - 1, 1) =~ /a|e|o|u/i || $c == 0 and substr($_[0], $c + 2, 1) =~ /l|r|n|m|b|h|f|v|w| /i || $c + 2 > $last) { } |
|
93
|
0 |
0 |
if ($c > 0) { } |
|
94
|
0 |
0 |
if (substr($_[0], 0, 2) =~ /mc/i) { } |
|
116
|
0 |
0 |
if (substr($_[0], $c + 2, 1) =~ /e|h|i/i and not substr($_[0], $c + 2, 2) =~ /hu/i) { } |
|
117
|
0 |
0 |
if ($c == 1 and substr($_[0], $c - 1, 1) =~ /a/i or substr($_[0], $c - 1, 5) =~ /uccee|ucces/i) { } |
|
136
|
0 |
0 |
if (substr($_[0], $c, 3) =~ /cio|cie|cia/i) { } |
|
151
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /c|k|q/i and not substr($_[0], $c + 1, 2) =~ /ce|ce/i) { } |
|
158
|
0 |
0 |
if (substr($_[0], $c, 2) =~ /dg/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /dt|dd/i) { } |
|
159
|
0 |
0 |
if (substr($_[0], $c + 2, 1) =~ /e|i|y/i) { } |
|
178
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /f/i) { } |
|
188
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /h/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 1) =~ /n/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 2) =~ /li/i and not &slavo_germanic($_[0])) { } |
|
|
0 |
0 |
elsif ($c == 0 and substr($_[0], $c + 1, 1) =~ /y/i || substr($_[0], $c + 1, 2) =~ /es|ep|eb|el|ey|ib|il|in|ie|ei|er/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 2) =~ /er/i || substr($_[0], $c + 1, 1) =~ /y/i and not substr($_[0], 0, 6) =~ /danger|ranger|manger/i and not substr($_[0], $c - 1, 1) =~ /e|i/i and not substr($_[0], $c - 1, 3) =~ /rgy|ogy/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 1) =~ /e|i|y/i or substr($_[0], $c - 1, 4) =~ /aggi|oggi/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 1) =~ /g/i) { } |
|
189
|
0 |
0 |
if ($c > 0 and not &is_vowel($_[0], $c - 1)) { } |
|
|
0 |
0 |
elsif ($c < 3 and $c == 0) { } |
|
|
0 |
0 |
elsif ($c > 1 and substr($_[0], $c - 2, 1) =~ /b|d|h/i or $c > 2 and substr($_[0], $c - 3, 1) =~ /b|d|h/i or $c > 3 and substr($_[0], $c - 4, 1) =~ /b|h/i) { } |
|
194
|
0 |
0 |
if (substr($_[0], $c + 2, 1) =~ /i/i) { } |
|
207
|
0 |
0 |
if ($c > 2 and substr($_[0], $c - 1, 1) =~ /u/i and substr($_[0], $c - 3, 1) =~ /c|g|l|r|t/i) { } |
|
|
0 |
0 |
elsif ($c > 0 and not substr($_[0], $c - 1, 1) =~ /i/i) { } |
|
218
|
0 |
0 |
if ($c == 1 and &is_vowel($_[0], 0) and not &slavo_germanic($_[0])) { } |
|
|
0 |
0 |
elsif (not substr($_[0], $c + 2, 2) =~ /ey/i || substr($_[0], $c + 1, 1) =~ /y/i || &slavo_germanic($_[0])) { } |
|
247
|
0 |
0 |
if (substr($_[0], 0, 4) =~ /van |von /i or substr($_[0], 0, 3) =~ /sch/i or substr($_[0], $c + 1, 2) =~ /et/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 4) =~ /^ier |^ier$/i) { } |
|
269
|
0 |
0 |
if ($c == 0 || &is_vowel($_[0], $c - 1) and &is_vowel($_[0], $c + 1)) { } |
|
277
|
0 |
0 |
if (substr($_[0], $c, 4) =~ /jose/i or substr($_[0], 0, 4) =~ /san /i) { } |
|
|
0 |
0 |
elsif ($c == 0 and not substr($_[0], $c, 4) =~ /jose/i) { } |
|
278
|
0 |
0 |
if ($c == 0 and substr($_[0], $c + 4, 1) eq ' ' || $c + 4 > $last or substr($_[0], 0, 4) =~ /san /i) { } |
|
290
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /j/i) { } |
|
296
|
0 |
0 |
if (&is_vowel($_[0], $c - 1) and not &slavo_germanic($_[0]) and substr($_[0], $c + 1, 1) =~ /a/i || substr($_[0], $c + 1, 1) =~ /o/i) { } |
|
301
|
0 |
0 |
if ($c == $last) { } |
|
304
|
0 |
0 |
unless (substr($_[0], $c + 1, 1) =~ /l|t|k|s|n|m|b|z/i or substr($_[0], $c - 1, 1) =~ /s|k|l/i) |
|
311
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /j/i) { } |
|
318
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /k/i) { } |
|
326
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /l/i) { } |
|
327
|
0 |
0 |
if ($c == $length - 3 and substr($_[0], $c - 1, 4) =~ /illo|illa|alle/i or substr($_[0], $last - 1, 2) =~ /as|os/i || substr($_[0], $last, 1) =~ /a|o/i and substr($_[0], $c - 1, 4) =~ /alle/i) { } |
|
343
|
0 |
0 |
if (substr($_[0], $c - 1, 3) =~ /umb/i and $c + 1 == $last || substr($_[0], $c + 2, 2) =~ /er/i or substr($_[0], $c + 1, 1) =~ /m/i) { } |
|
353
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /n/i) { } |
|
365
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /h/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 1) =~ /p|b/i) { } |
|
379
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /q/i) { } |
|
387
|
0 |
0 |
if ($c == $last and not &slavo_germanic($_[0]) and substr($_[0], $c - 2, 2) =~ /ie/i and not substr($_[0], $c - 4, 2) =~ /me|ma/i) { } |
|
394
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /r/i) { } |
|
404
|
0 |
0 |
if (substr($_[0], $c - 1, 3) =~ /isl|ysl/i) { } |
|
|
0 |
0 |
elsif ($c == 0 and substr($_[0], $c, 5) =~ /sugar/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /sh/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 3) =~ /sio|sia/i or substr($_[0], $c, 4) =~ /sian/i) { } |
|
|
0 |
0 |
elsif ($c == 0 and substr($_[0], $c + 1, 1) =~ /m|n|l|w/i or substr($_[0], $c + 1, 1) =~ /z/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /sc/i) { } |
|
411
|
0 |
0 |
if (substr($_[0], $c + 1, 4) =~ /heim|hoek|holm|holz/i) { } |
|
420
|
0 |
0 |
if (not &slavo_germanic($_[0])) { } |
|
431
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /z/i) { } |
|
437
|
0 |
0 |
if (substr($_[0], $c + 2, 1) =~ /h/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 2, 1) =~ /e|i|y/i) { } |
|
438
|
0 |
0 |
if (substr($_[0], $c + 3, 2) =~ /oo|er|en|uy|ed|em/i) { } |
|
439
|
0 |
0 |
if (substr($_[0], $c + 3, 2) =~ /er|en/i) { } |
|
448
|
0 |
0 |
if ($c == 0 and not &is_vowel($_[0], 3) and not substr($_[0], 3, 1) =~ /w/i) { } |
|
467
|
0 |
0 |
if ($c == $last and substr($_[0], $c - 2, 2) =~ /ai|oi/i) { } |
|
473
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /s|z/i) { } |
|
480
|
0 |
0 |
if (substr($_[0], $c, 4) =~ /tion/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 3) =~ /tia|tch/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 2) =~ /th/i or substr($_[0], $c, 3) =~ /tth/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c + 1, 1) =~ /t|d/i) { } |
|
489
|
0 |
0 |
if (substr($_[0], $c + 2, 2) =~ /om|am/i or substr($_[0], 0, 4) =~ /van |von /i or substr($_[0], 0, 3) =~ /sch/i) { } |
|
508
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /v/i) { } |
|
516
|
0 |
0 |
if (substr($_[0], $c, 2) =~ /wr/i) { } |
|
521
|
0 |
0 |
if ($c == 0 and &is_vowel($_[0], $c + 1) || substr($_[0], $c, 2) =~ /wh/i) |
|
522
|
0 |
0 |
if (&is_vowel($_[0], $c + 1)) { } |
|
530
|
0 |
0 |
if ($c == $last and &is_vowel($_[0], $c - 1) or substr($_[0], $c - 1, 5) =~ /ewski|ewsky|owski|owsky/i or substr($_[0], 0, 3) =~ /sch/i) { } |
|
|
0 |
0 |
elsif (substr($_[0], $c, 4) =~ /wicz|witz/i) { } |
|
544
|
0 |
0 |
unless ($c == $last and substr($_[0], $c - 3, 3) =~ /iau|eau/i || substr($_[0], $c - 2, 2) =~ /au|ou/i) |
|
549
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /c|x/i) { } |
|
555
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /h/i) { } |
|
560
|
0 |
0 |
if (substr($_[0], $c + 1, 2) =~ /zo|zi|za/i or &slavo_germanic($_[0]) and $c > 0 and not substr($_[0], $c - 1, 1) =~ /t/i) { } |
|
568
|
0 |
0 |
if (substr($_[0], $c + 1, 1) =~ /z/i) { } |
|
585
|
0 |
0 |
if ($_[1] < 0 or $_[1] >= length $_[0]) { } |
|
588
|
0 |
0 |
if substr($_[0], $_[1], 1) =~ /a|e|i|o|u|y/i |
|
594
|
0 |
0 |
if ($_[0] =~ /w|k|cz|witz/i) { } |