| blib/lib/Data/MuForm/Common.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 9 | 5 | 633 | if (exists $field_attr->{'inactive'}) |
| 11 | 5 | 0 | $inactive ? : |
| 13 | 11 | 627 | if (grep {$_ =~ /ra\./;} keys %$field_attr) |
| 16 | 1 | 637 | if (my(@keys) = grep({$_ =~ /msg\./;} keys %$field_attr)) |
| 23 | 2 | 636 | if (my(@keys) = grep({$_ =~ /meth\./;} keys %$field_attr)) |
| 46 | 0 | 11 | if ($render_args and $ra) { } |
| 57 | 6 | 11 | if ($seg[1]) { } |
| 70 | 1 | 56 | if (my(@keys) = grep({$_ =~ /^.{2,}\./;} keys %$args)) |
| 73 | 1 | 0 | if (my $new_key = $$shortcuts{$seg[0]}) |
| 83 | 0 | 0 | unless $self->can($flag_name) |