| … | |
… | |
| 237 | sub msg { |
237 | sub msg { |
| 238 | my ($self, @msg) = @_; |
238 | my ($self, @msg) = @_; |
| 239 | |
239 | |
| 240 | if (my $ns = shift->{ns}) { |
240 | if (my $ns = shift->{ns}) { |
| 241 | return unless $ns->{json_coder};#d# might be gone at destroy time(??) |
241 | return unless $ns->{json_coder};#d# might be gone at destroy time(??) |
| 242 | warn "msg " . $ns->{json_coder}->encode (\@msg) if $DEBUG;#d# |
242 | #d#warn "msg " . $ns->{json_coder}->encode (\@msg) if $DEBUG;#d# |
| 243 | $ns->send_packet ("ext " . $ns->{json_coder}->encode (\@msg)); |
243 | $ns->send_packet ("ext " . $ns->{json_coder}->encode (\@msg)); |
| 244 | } |
244 | } |
| 245 | } |
245 | } |
| 246 | |
246 | |
| 247 | sub alloc { |
247 | sub alloc { |
