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