| … | |
… | |
| 2465 | =cut |
2465 | =cut |
| 2466 | |
2466 | |
| 2467 | sub cf::client::ext_event($$%) { |
2467 | sub cf::client::ext_event($$%) { |
| 2468 | my ($self, $type, %msg) = @_; |
2468 | my ($self, $type, %msg) = @_; |
| 2469 | |
2469 | |
|
|
2470 | return unless $self->extcmd; |
|
|
2471 | |
| 2470 | $msg{msgtype} = "event_$type"; |
2472 | $msg{msgtype} = "event_$type"; |
| 2471 | $self->send_packet ("ext " . $self->{json_coder}->encode (\%msg)); |
2473 | $self->send_packet ("ext " . $self->{json_coder}->encode (\%msg)); |
| 2472 | } |
2474 | } |
| 2473 | |
2475 | |
| 2474 | =item $success = $client->query ($flags, "text", \&cb) |
2476 | =item $success = $client->query ($flags, "text", \&cb) |
