| blib/lib/YATT/Lite/WebMVC0/SubRoutes.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 69 | 82 | unless my($slash, @match) = $_[0] =~ /$r->{'pattern_re'}/x |
| 36 | 44 | 1 | ref $spec eq 'ARRAY' ? : |
| 52 | 0 | 62 | unless ($pat =~ m[^/]g) |
| 76 | 60 | 65 | unless (@pat) |
| 79 | 72 | 53 | if ($1) { } |
| 41 | 12 | elsif (my $var_type = $2 // $3) { } | |
| 12 | 0 | elsif ($5) { } | |
| 85 | 1 | 8 | do { my($type) = $type_or_pat =~ /^(\w+)$/ } ? : |
| 9 | 32 | $type_or_pat ? : | |
| 88 | 0 | 1 | unless my $sub = $self->can("re_$type") |
| 105 | 2 | 60 | if $last < length $pat |