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