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"} |