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