| blib/lib/Form/Tiny/Meta.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 31 | 41 | 75.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 266 | 26 | 0 | 41 | defined &blessed($hook) and $hook->isa("Form::Tiny::Hook") |
| 287 | 0 | 1 | 3 | not $err and $isa |
| 308 | 54 | 0 | 65 | $self->has_package and @{$self->form_roles;} |
| 317 | 0 | 0 | 5 | defined &blessed($parent) and $parent->isa("Form::Tiny::Meta") |
| 358 | 152 | 17 | 4 | $def->is_subform and $recurse |
| 369 | 17 | 8 | 2 | $self->is_dynamic and not $context |
| 396 | 3 | 0 | 25 | @args and has_form_meta($args[0]) |
| line | l | !l | condition |
|---|---|---|---|
| 127 | 2 | 146 | $self->hooks->{$stage} // [] |
| 337 | 5 | 0 | $parent_hooks{$_} // [] |
| 0 | 5 | $hooks{$_} // [] | |
| 354 | 18 | 9 | $params{'recurse'} // 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 140 | 242 | 85 | 0 | $self->{'_cache'}{'inline_hooks'} //= do { my %inlined; foreach my $stage (keys %{$self->hooks;}) { my(@hooks) = @{$self->hooks->{$stage};}; $inlined{$stage} = sub { my(@data) = @_; foreach my $hook (@hooks) { my $ret = $hook->code->(@data); splice @data, -1, 1, $ret if $hook->is_modifying; } ; return $data[-1]; } ; } ; \%inlined } |
| 247 | 6 | 66 | 216 | $self->is_dynamic or @{$builder->get_name_path->path;} > 1 |
| 366 | 1 | 26 | 0 | $params{'transform'} // $transform_base |
| 399 | 9 | 15 | 4 | $self->is_dynamic or @args |