| blib/lib/Lingua/EN/Nickname.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 24 | 58.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 89 | 7 | 0 | 0 | not /[a-z]/ and length $_ > 2 |
| 121 | 6 | 10 | 1 | exists $Lingua::EN::Nickname::root{$b} and $a eq $Lingua::EN::Nickname::root{$b} |
| 122 | 12 | 2 | 2 | exists $Lingua::EN::Nickname::root{$a} and $b eq $Lingua::EN::Nickname::root{$a} |
| 123 | 0 | 14 | 0 | $regex = &nickroot($b) and $a =~ /^($regex)$/ |
| 0 | 7 | 7 | $regex = &nickroot($a) and $b =~ /^($regex)$/ | |
| 134 | 211 | 0 | 0 | not /[a-z]/ and length $_ > 2 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 123 | 0 | 0 | 14 | $regex = &nickroot($b) and $a =~ /^($regex)$/ or $regex = &nickroot($a) and $b =~ /^($regex)$/ |
| 127 | 2 | 0 | 1 | nickfollow($a, $b) || nickfollow($b, $a) |