| … | |
… | |
| 70 | |
70 | |
| 71 | sub clr_transport { |
71 | sub clr_transport { |
| 72 | my ($self) = @_; |
72 | my ($self) = @_; |
| 73 | |
73 | |
| 74 | delete $self->{transport}; |
74 | delete $self->{transport}; |
| 75 | warn "clr_transport\n"; |
75 | |
|
|
76 | $self->connect; |
| 76 | } |
77 | } |
| 77 | |
78 | |
| 78 | sub connect { |
79 | sub connect { |
| 79 | my ($self) = @_; |
80 | my ($self) = @_; |
| 80 | |
81 | |
| … | |
… | |
| 136 | sub set_transport { |
137 | sub set_transport { |
| 137 | die "FATAL error, set_transport was called"; |
138 | die "FATAL error, set_transport was called"; |
| 138 | } |
139 | } |
| 139 | |
140 | |
| 140 | sub send { |
141 | sub send { |
| 141 | die "self-send not implemented yet\n";#d# |
142 | AnyEvent::MP::_inject ($_[1]); |
| 142 | } |
143 | } |
| 143 | |
144 | |
| 144 | =head1 SEE ALSO |
145 | =head1 SEE ALSO |
| 145 | |
146 | |
| 146 | L<AnyEvent>. |
147 | L<AnyEvent>. |
