… | … | ||
---|---|---|---|
73 | sub bool { | 73 | sub bool { |
74 | !${${$_[0]}} | 74 | !${${$_[0]}} |
75 | } | 75 | } |
76 | 76 | ||
77 | sub DESTROY { | 77 | sub DESTROY { |
78 | ${${$_[0]}}->cancel; | 78 | ${${$_[0]}}->cancel if ${${$_[0]}}; |
79 | undef ${${$_[0]}}; # without this it leaks like hell. breaks the circular reference inside the closure | 79 | undef ${${$_[0]}}; # without this it leaks like hell. breaks the circular reference inside the closure |
80 | } | 80 | } |
81 | 81 | ||
82 | use overload 'bool' => \&bool, '0+' => \&bool; | 82 | use overload 'bool' => \&bool, '0+' => \&bool; |
83 | 83 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |