Branch Coverage

blib/lib/KiokuDB/TypeMap/Entry/MOP.pm
Criterion Covered Total %
branch 66 88 75.0


line true false branch
75 35 243 if ($meta->is_anon_class)
91 35 0 if (@super == 1) { }
0 0 elsif (@super > 1) { }
93 0 35 if ($ancestor->is_anon_class)
110 0 35 $_->isa('Moose::Meta::Role::Composite') ? :
118 35 0 if ($$class_meta{'superclasses'}[0] eq $ancestor->name)
134 36 242 if (defined(my $version = $meta->version))
144 202 2975 if ($immutable)
146 35 167 if ($self->live_objects->object_in_storage($object)) { }
165 2 elsif ($content_id) { }
149 66 99 if (($self->backend->exists($args{'id'}))[0])
159 13393 9434 if ($attr->has_value($object))
160 0 13393 if ($lazy{$name})
163 0 0 if (ref $value eq 'KiokuDB::Thunk')
170 9097 4296 ref $value ? :
200 35 5202 if ($entry->has_class_meta and not $anon)
208 0 35 unless ($resolver->resolved($anon_class))
216 5187 15 if (not $self->check_class_versions or $self->is_version_up_to_date($meta, $version, $entry->class_version)) { }
221 5 6 if ($self->write_upgrades)
222 0 5 unless &refaddr($entry) == &refaddr($upgraded->root_prev)
240 116 23 if $version eq $entry_version
244 4 19 if exists $cache{$key}
249 7 7 unless ref $handler
263 26 11 if (does_role($meta, 'KiokuDB::Role::Upgrade::Handlers')) { }
275 1 14 if (does_role($meta, 'KiokuDB::Role::Upgrade::Data')) { }
290 10 4 if (ref $handler) { }
297 10 0 if ($self->is_version_up_to_date($meta, $meta->version, $converted->class_version)) { }
0 0 elsif ($entry->class_version eq $converted->class_version) { }
315 0 4 $entry->class_version ne $from_version ? :
321 4 6 if (ref $handler eq 'HASH')
322 0 4 if ref $$handler{'data'} and ref $$handler{'data'} ne 'HASH'
325 0 4 unless defined $$handler{'class_version'}
333 0 4 unless ref $entry->data eq 'HASH'
339 2 2 unless $$handler{'data'}
358 33 245 $cache ? :
404 0 22652 unless my $attr = $attrs{$name}
407 15104 7548 if (ref $value) { }
408 0 15104 if ($lazy{$name}) { }
414 15104 0 if ref $value
426 807 14297 if $attr->is_weak_ref
447 0 35 if ref $super
460 70 208 if (does_role(Class::MOP::get_metaclass_by_name($class), 'KiokuDB::Role::ID')) { }
475 4 274 if ($self->has_intrinsic) { }
2 272 elsif (does_role($meta, 'KiokuDB::Role::Intrinsic')) { }