| blib/lib/Text/HumanComputerWords.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 24 | 95.8 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 1 | 9 | if @args % 2 |
| 24 | 1 | 17 | unless defined $name |
| 25 | 1 | 16 | unless defined $code |
| 26 | 1 | 15 | if XXX |
| 27 | 1 | 14 | unless XXX |
| 40 | 9 | 2 | unless $text =~ m[^/(bin|boot|dev|etc|home|lib|lib32|lib64|mnt|opt|proc|root|sbin|tmp|usr|var)(/|$)]u |
| 44 | 6 | 1 | unless $text =~ m[^[a-z]+://]iu |
| 60 | 0 | 23 | unless $frag =~ /\w/u |
| 67 | 2 | 38 | if ($name eq 'substitute') { } |
| 13 | 25 | elsif (&$code($frag)) { } | |
| 74 | 12 | 1 | unless $name eq 'skip' |
| 81 | 5 | 14 | unless $word =~ /\w/u |