| blib/lib/MVC/Neaf/Route.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 26 | 80.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 111 | 281 | 4 | 1 | $opt{'public'} and not $opt{'description'} |
| 259 | 0 | 0 | 2 | $name and $spec |
| line | l | !l | condition |
|---|---|---|---|
| 103 | 280 | 7 | $opt{'default'} ||= {} |
| 109 | 1 | 0 | ref $opt{'code'} || 'scalar' |
| 125 | 280 | 4 | $opt{'caller'} ||= [CORE::caller 0] |
| 265 | 1 | 1 | delete $opt{'engine'} || 'MVC::Neaf::X::Form' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 126 | 134 | 150 | 0 | $opt{'where'} ||= "at $opt{'caller'}[1] line $opt{'caller'}[2]" |
| 132 | 2 | 1 | 12 | ref $reg ne "HASH" or grep {not defined $reg->{$_};} keys %$reg |
| 266 | 1 | 1 | 0 | $FORM_ENGINE{lc $eng} || $eng |
| 296 | 3 | 2 | 1 | $self->{'forms'}{$name} ||= do { my $parent = $self->parent; croak("Failed to locate form '${name}'") unless $parent; $parent->get_form($name) } |