| … | … | ||
|---|---|---|---|
| 466 | }, | 466 | }, |
| 467 | relay_multiple => sub { | 467 | relay_multiple => sub { |
| 468 | snd @$_ for @_ | 468 | snd @$_ for @_ |
| 469 | }, | 469 | }, |
| 470 | 470 | ||
| 471 | # informational | ||
| 472 | info => sub { | ||
| 473 | snd @_, $NODE; | ||
| 474 | }, | ||
| 475 | known_nodes => sub { | ||
| 476 | snd @_, known_nodes; | ||
| 477 | }, | ||
| 478 | up_nodes => sub { | ||
| 479 | snd @_, up_nodes; | ||
| 480 | }, | ||
| 481 | |||
| 471 | # random garbage | 482 | # random garbage |
| 472 | eval => sub { | 483 | eval => sub { |
| 473 | my @res = eval shift; | 484 | my @res = eval shift; |
| 474 | snd @_, "$@", @res if @_; | 485 | snd @_, "$@", @res if @_; |
| 475 | }, | 486 | }, |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |