… | |
… | |
500 | =cut |
500 | =cut |
501 | |
501 | |
502 | register_write_type packstring => sub { |
502 | register_write_type packstring => sub { |
503 | my ($self, $format, $string) = @_; |
503 | my ($self, $format, $string) = @_; |
504 | |
504 | |
505 | pack "$format/a", $string |
505 | pack "$format/a*", $string |
506 | }; |
506 | }; |
507 | |
507 | |
508 | =item json => $array_or_hashref |
508 | =item json => $array_or_hashref |
509 | |
509 | |
510 | Encodes the given hash or array reference into a JSON object. Unless you |
510 | Encodes the given hash or array reference into a JSON object. Unless you |
… | |
… | |
556 | register_write_type storable => sub { |
556 | register_write_type storable => sub { |
557 | my ($self, $ref) = @_; |
557 | my ($self, $ref) = @_; |
558 | |
558 | |
559 | require Storable; |
559 | require Storable; |
560 | |
560 | |
561 | pack "w/a", Storable::nfreeze ($ref) |
561 | pack "w/a*", Storable::nfreeze ($ref) |
562 | }; |
562 | }; |
563 | |
563 | |
564 | =back |
564 | =back |
565 | |
565 | |
566 | =item AnyEvent::Handle::register_write_type type => $coderef->($handle, @args) |
566 | =item AnyEvent::Handle::register_write_type type => $coderef->($handle, @args) |