| blib/lib/Bad/Words.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 1051 | 0 | 5 | if $ref |
| 1062 | 1 | 6 | ref $_[0] ? : |
| 1063 | 18 | 0 | if defined $_ |
| 1072 | 1 | 1 | ref $_[0] ? : |
| 1073 | 0 | 2 | unless @$x |
| 1074 | 14 | 0 | if defined $_ and $_ ne '' |
| 1083 | 6 | 6028 | if ($s eq $$wr[$i]) { } |
| 1085 | 0 | 6 | unless defined($s = shift @list) |
| 1098 | 0 | 2 | unless defined $regex |
| 1100 | 37 | 1463 | if ($$wr[$i] =~ /$regex/) |