line |
true |
false |
branch |
24
|
45 |
8721 |
if (not defined $item) { } |
|
8721 |
0 |
elsif (ref $item ne '') { } |
27
|
1910 |
6811 |
if (&reftype($item) eq 'CODE') { } |
|
904 |
5907 |
elsif (defined &blessed($item) and $item->isa('RxPerl::Subscription')) { } |
|
3763 |
2144 |
elsif (&reftype($item) eq 'ARRAY' and not defined &blessed($item)) { } |
|
8 |
2136 |
elsif (&reftype($item) eq 'REF') { } |
|
1 |
2135 |
elsif (&reftype($item) eq 'SCALAR') { } |
|
2135 |
0 |
elsif (&reftype($item) eq 'HASH' and not defined &blessed($item)) { } |
31
|
899 |
5 |
unless $item eq $self |
61
|
2005 |
238 |
if (grep(defined($_), @{$$self{"subscribers"};}) == 1) |
66
|
1869 |
6 |
if defined $orig_fn |
79
|
2439 |
855 |
if (not $self->{'closed'}) { } |
89
|
824 |
1965 |
if $self->{'closed'}++ |
93
|
2119 |
84 |
if defined $subscriber |