| blib/lib/YATT/Lite/WebMVC0/SubRoutes.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 36 | 16 | unless my($slash, @match) = $_[0] =~ /$r->{'pattern_re'}/x |
| 36 | 10 | 1 | ref $spec eq 'ARRAY' ? : |
| 52 | 0 | 28 | unless ($pat =~ m[^/]g) |
| 76 | 26 | 63 | unless (@pat) |
| 79 | 38 | 51 | if ($1) { } |
| 39 | 12 | elsif (my $var_type = $2 // $3) { } | |
| 12 | 0 | elsif ($5) { } | |
| 85 | 32 | 7 | if (not $type_or_pat) { } |
| 1 | 6 | elsif (my($type) = $type_or_pat =~ /^(\w+)$/) { } | |
| 88 | 0 | 1 | unless my $sub = $self->can("re_$type") |
| 105 | 2 | 26 | if $last < length $pat |