… | |
… | |
1821 | sub destroy { |
1821 | sub destroy { |
1822 | my ($self) = @_; |
1822 | my ($self) = @_; |
1823 | |
1823 | |
1824 | $self->DESTROY; |
1824 | $self->DESTROY; |
1825 | %$self = (); |
1825 | %$self = (); |
|
|
1826 | bless $self, "AnyEvent::Handle::destroyed"; |
|
|
1827 | } |
|
|
1828 | |
|
|
1829 | { |
|
|
1830 | package AnyEvent::Handle::destroyed; |
|
|
1831 | |
|
|
1832 | sub AUTOLOAD { |
|
|
1833 | #nop |
|
|
1834 | } |
1826 | } |
1835 | } |
1827 | |
1836 | |
1828 | =item AnyEvent::Handle::TLS_CTX |
1837 | =item AnyEvent::Handle::TLS_CTX |
1829 | |
1838 | |
1830 | This function creates and returns the AnyEvent::TLS object used by default |
1839 | This function creates and returns the AnyEvent::TLS object used by default |