Branch Coverage

lib/Type/Registry.pm
Criterion Covered Total %
branch 33 54 61.1


line true false branch
29 1 9 ref $caller ? :
32 5 39 @_ ? :
37 0 58 if ref $class
71 10 2 if ($library->isa('Type::Library') or $library eq 'Types::TypeTiny') { }
1 1 elsif ($library->isa('Exporter') and my $type_tag = do { no strict 'refs'; do { "${library}::EXPORT_TAGS" }->{'types'} }) { }
0 1 elsif ($library->isa('MooseX::Types::Base')) { }
0 1 elsif ($library->isa('MouseX::Types::Base')) { }
73 0 10 unless Types::TypeTiny::is_ArrayLike($types)
89 0 0 unless Types::TypeTiny::is_ArrayLike($types) and @$types == 0
105 0 0 unless Types::TypeTiny::is_ArrayLike($types) and @$types == 0
126 0 380 if exists $self->{$key} and $self->{$key}{'uniq'} != $hash{$key}{'uniq'}
138 1 3 if $type->is_anon
146 0 1110 if exists $self->{$name} and $self->{$name}{'uniq'} != $type->{'uniq'}
155 1 4 unless my $lookup = eval { do { $self->lookup($old) } }
167 157 28 if (exists $self->{$tc}) { }
2 26 elsif ($self->has_parent) { }
179 0 1 ref $_[0] ? :
203 3 0 $_[1] ? :
3 1 unless $_[0] =~ /^(.+)::(\w+)$/
214 0 1 if ($library->isa("MooseX::Types::Base"))
216 0 0 unless my $type = Moose::Util::TypeConstraints::find_type_constraint($library->get_type($typename))
222 0 1 if ($library->isa("MouseX::Types::Base"))
224 0 0 unless my $sub = $library->can($typename)
225 0 0 unless my $type = Mouse::Util::TypeConstraints::find_type_constraint(&$sub())
230 1 0 if ($library->can("get_type"))
241 16 11 unless $self->simple_lookup(@_)
296 16 1 if $type