Branch Coverage

blib/lib/Devel/MAT/Tool/Object/Pad.pm
Criterion Covered Total %
branch 30 36 83.3


line true false branch
74 2 0 if eval { do { $pmat->find_symbol("%Object::Pad::") } }
98 14 148667 if $count % 10000 == 0
101 148664 17 unless $sv->type eq "C_STRUCT"
124 5 12 if ($(Syntax::Keyword::Match/topic) eq 'Object::Pad/ClassMeta.class') { }
1 11 elsif ($(Syntax::Keyword::Match/topic) eq 'Object::Pad/ClassMeta.role') { }
8 3 elsif ($(Syntax::Keyword::Match/topic) eq 'Object::Pad/FieldMeta') { }
1 2 elsif ($(Syntax::Keyword::Match/topic) eq 'Object::Pad/MethodMeta') { }
1 1 elsif ($(Syntax::Keyword::Match/topic) eq 'Object::Pad/RoleEmbedding') { }
134 14 148667 if $count % 10000 == 0
137 148012 669 unless my $package = $sv->blessed
138 664 5 unless my $class = $classes_by_name{$package->stashname}
148 0 1 unless $sv->type eq "HASH"
153 1 0 if $_->type eq "~"
0 1 unless my $fieldmagic = &first(sub { $_->vtbl == $self->{'vtbl_ptr'} if $_->type eq "~"; } , $sv->magic)
158 3 2 if ($(Syntax::Keyword::Match/topic) == 0) { }
1 1 elsif ($(Syntax::Keyword::Match/topic) == 1) { }
1 0 elsif ($(Syntax::Keyword::Match/topic) == 2) { }
197 0 6 unless my $class_at = $self->{'objectpad_class_at'}