| … | … | ||
|---|---|---|---|
| 201 | my $cb = shift; | 201 | my $cb = shift; |
| 202 | my $id = "$AnyEvent::MP::Base::UNIQ." . $AnyEvent::MP::Base::ID++; | 202 | my $id = "$AnyEvent::MP::Base::UNIQ." . $AnyEvent::MP::Base::ID++; |
| 203 | 203 | ||
| 204 | $AnyEvent::MP::Base::PORT{$id} = sub { | 204 | $AnyEvent::MP::Base::PORT{$id} = sub { |
| 205 | &$cb | 205 | &$cb |
| 206 | and delete $AnyEvent::MP::Base::PORT{$id}; | 206 | and del $id; |
| 207 | }; | 207 | }; |
| 208 | 208 | ||
| 209 | "$NODE#$id" | 209 | "$NODE#$id" |
| 210 | } | 210 | } |
| 211 | 211 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |