| lib/Type/Registry.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 45 | 51.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 30 | 0 | 2 | 0 | ref $value eq "HASH" and exists $value->{'for_class'} |
| 87 | 1 | 0 | 1 | $library->isa("Exporter") and my $type_tag = do { no strict 'refs'; do { "${library}::EXPORT_TAGS" }->{'types'} } |
| 105 | 0 | 0 | 0 | Types::TypeTiny::is_ArrayLike($types) and @$types == 0 |
| 121 | 0 | 0 | 0 | Types::TypeTiny::is_ArrayLike($types) and @$types == 0 |
| 142 | 350 | 173 | 0 | exists $self->{$key} and $self->{$key}{'uniq'} != $hash{$key}{'uniq'} |
| 162 | 2609 | 67 | 0 | exists $self->{$name} and $self->{$name}{'uniq'} != $type->{'uniq'} |
| line | l | !l | condition |
|---|---|---|---|
| 88 | 1 | 12 | $types ||= ["-types"] |
| 104 | 0 | 0 | $types ||= [] |
| 120 | 0 | 0 | $types ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 56 | 540 | 85 | 0 | $registries{$for} ||= $class->new |
| 62 | 22 | 1 | 0 | $registries{$for} ||= $class->new |
| 69 | 4 | 9 | 0 | $registries{$for} ||= $class->new |
| 87 | 12 | 1 | 2 | $library->isa("Type::Library") or $library eq "Types::TypeTiny" |
| 100 | 0 | 1 | 0 | $types ||= $type_tag |
| 153 | 2673 | 3 | 1 | $name ||= do { &_croak("Expected named type constraint; got anonymous type constraint") if $type->is_anon; $type->name } |
| 195 | 1 | 0 | 0 | ref $self || $self |