line |
true |
false |
branch |
24
|
45 |
8726 |
if (not defined $item) { } |
|
8726 |
0 |
elsif (ref $item ne '') { } |
27
|
1911 |
6815 |
if (&reftype($item) eq 'CODE') { } |
|
905 |
5910 |
elsif (defined &blessed($item) and $item->isa('RxPerl::Subscription')) { } |
|
3765 |
2145 |
elsif (&reftype($item) eq 'ARRAY' and not defined &blessed($item)) { } |
|
8 |
2137 |
elsif (&reftype($item) eq 'REF') { } |
|
1 |
2136 |
elsif (&reftype($item) eq 'SCALAR') { } |
|
2136 |
0 |
elsif (&reftype($item) eq 'HASH' and not defined &blessed($item)) { } |
31
|
900 |
5 |
unless $item eq $self |
61
|
2006 |
238 |
if (grep(defined($_), @{$$self{"subscribers"};}) == 1) |
66
|
1870 |
6 |
if defined $orig_fn |
79
|
2440 |
856 |
if (not $self->{'closed'}) { } |
89
|
825 |
1966 |
if $self->{'closed'}++ |
93
|
2120 |
84 |
if defined $subscriber |