Branch Coverage

blib/lib/Class/Observable.pm
Criterion Covered Total %
branch 13 22 59.0


line true false branch
14 0 0 if $DEBUG
21 0 6 if ($^O eq 'Win32' or $Config::Config{'useithreads'}) { }
28 0 0 if (defined $invocant) { }
33 0 0 unless $have_warned++
62 0 4 unless my $observers = $O{$addr or "::$invocant"}
65 2 2 unless (@$observers)
77 5 1 $removed ? :
85 17 18 ref $_ eq 'CODE' ? :
92 28 8 if (my $pkg = ref $_[0]) { }
120 53 0 wantarray ? :
53 52 unless my $observers = $O{$addr or "::$invocant"}