Branch Coverage

blib/lib/Mock/Quick/Class.pm
Criterion Covered Total %
branch 40 48 83.3


line true false branch
31 0 2 if $key =~ /^-/
50 0 3 if $INC{$inc}
110 9 8 if ($key =~ /^-/) { }
4 4 elsif (_is_sub_ref($value)) { }
128 2 7 if ($param eq '-subclass') { }
1 6 elsif ($param eq '-attributes') { }
6 0 elsif ($param eq '-with_new') { }
129 1 1 unless ref $value eq 'ARRAY'
134 0 1 unless ref $value eq 'ARRAY'
139 0 2 unless blessed $self
143 1 1 if @_
151 0 5 if @_ == 1 and ref $_[0] eq 'HASH'
156 0 5 if blessed $class
169 19 8 if $type and $type eq 'CODE'
170 1 7 if $class and $class->isa('Mock::Quick::Method')
184 3 9 if $self->is_takeover and not $package->can($name)
189 11 1 _is_sub_ref($orig_value) ? :
203 9 16 unless (exists $$self{$name})
216 7 5 if ($original) { }
217 5 2 _is_sub_ref($original) ? :
238 0 14 if $self->is_takeover
242 5 9 if $self->is_implement
247 11 7 unless $self->is_takeover
260 20 6 if $sub =~ /^-/