… | |
… | |
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>. |