| blib/lib/PPIx/Regexp/Structure/Switch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 6 | 12 | if $cond = $self->schild(0) and $cond->isa("PPIx::Regexp::Token::Condition") and $cond->content eq "(DEFINE)" |
| 49 | 6 | 6 | if defined $node_min and $alternatives < 2 |
| 67 | 26 | 0 | if (my $condition = $self->child(0)) |
| 73 | 46 | 25 | unless $condition->isa($class) |
| 74 | 3 | 22 | $condition->content eq '(DEFINE)' ? : |
| 79 | 25 | 1 | if (defined $alternations) { } |
| 83 | 77 | 5 | unless $kid->isa("PPIx::Regexp::Token::Operator") |
| 84 | 0 | 5 | unless $kid->content eq "|" |
| 85 | 4 | 1 | if --$alternations >= 0 |