| blib/lib/Tangence/Struct.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 12 | 41.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 24 | 2 | 67 | 0 | $STRUCTS_BY_NAME{$name} //= $class->new(%args) |
| 73 | 834 | 0 | 0 | exists $args{$_} or croak("$class is missing $_") |
| 88 | 0 | 0 | 0 | $STRUCTS_BY_NAME{$name} // croak("Unknown Tangence::Struct for '${name}'") |
| 93 | 161 | 10 | 0 | $STRUCTS_BY_PERLNAME{$perlname} // croak("Unknown Tangence::Struct for '${perlname}'") |