view release on metacpan or  search on metacpan

lib/Event/RPC/Message/Negotiate.pm  view on Meta::CPAN

sub known_message_formats       { \%MESSAGE_FORMATS             }
sub message_format_order        { \@MESSAGE_FORMAT_ORDER        }

my $STORABLE_FALLBACK_OK = 0;
sub get_storable_fallback_ok    { $STORABLE_FALLBACK_OK         }
sub set_storable_fallback_ok    { $STORABLE_FALLBACK_OK = $_[1] }

sub encode_message {
    my $self = shift;
    my ($decoded) = @_;

    my $ok  = $decoded->{ok}  || "";
    my $msg = $decoded->{msg} || "";
    my $cmd = $decoded->{cmd} || "";

    s,/\d/,,g for ( $ok, $msg, $cmd );

    return "/0/E:R:M:N/1/$ok/2/$msg/3/$cmd/0/";
}

sub decode_message {
    my $self = shift;
    my ($encoded) = @_;