| blib/lib/Text/PORE/Node/If.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 29 | 32 | 90.6 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 17 | if $self->getDebug |
| 46 | 14 | 3 | $result ? : |
| 68 | 0 | 17 | if ($Text::PORE::Node::If::EVAL_ERROR) |
| 95 | 25 | 68 | if (s/^([\'\"])(([^\\]|\\.)*?)\1//) |
| 99 | 38 | 30 | if (s/^([\.\w]+)//) |
| 103 | 3 | 27 | if (s/^(>=|<=|!=)//) |
| 107 | 26 | 1 | if (s[^[<>()+\-*/\%]][]) |
| 112 | 1 | 0 | if (s/^=//) |
| 140 | 2 | 91 | if ($lc eq 'and') |
| 143 | 2 | 89 | if ($lc eq 'or') |
| 146 | 2 | 87 | if ($lc eq 'not') |
| 149 | 5 | 82 | if ($lc eq 'eq') |
| 154 | 6 | 76 | if ($lc eq 'eqs') |
| 157 | 25 | 51 | if (/^([\'\"])(.*)\1$/) |
| 158 | 5 | 20 | $case_insensitive ? : |
| 163 | 21 | 30 | if (/^([\.\w]+)$/i) |