Branch Coverage

blib/lib/RxPerl/Subscription.pm
Criterion Covered Total %
branch 30 32 93.7


line true false branch
24 52 9244 if (not defined $item) { }
9244 0 elsif (ref $item ne '') { }
27 2013 7231 if (builtin::reftype($item) eq 'CODE') { }
966 6265 elsif (defined builtin::blessed($item) and $item->isa('RxPerl::Subscription')) { }
3994 2271 elsif (builtin::reftype($item) eq 'ARRAY' and not defined builtin::blessed($item)) { }
9 2262 elsif (builtin::reftype($item) eq 'REF') { }
1 2261 elsif (builtin::reftype($item) eq 'SCALAR') { }
2261 0 elsif (builtin::reftype($item) eq 'HASH' and not defined builtin::blessed($item)) { }
31 953 13 unless $item eq $self
61 2128 262 if (grep(defined($_), @{$$self{"subscribers"};}) == 1)
66 1980 11 if defined $orig_fn
76 2082 510 unless $self->{'subrefs'}
80 3 16 if (defined builtin::blessed($item) and $item->isa("RxPerl::Subscription") and $item->{'closed'})
92 2592 920 if (not $self->{'closed'}) { }
103 871 2088 if $self->{'closed'}++
107 2257 93 if defined $subscriber