File Coverage

blib/lib/PLS/Server/Message.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	18	19	94.7

package PLS::Server::Message;

use strict;
use warnings;

use PLS::JSON;

=head1 NAME

PLS::Server::Message

=head1 DESCRIPTION

This class is the abstract base class for all messages sent between
server and client.

See L<PLS::Server::Request> and L<PLS::Server::Response>, which
inherit from this class.

=cut

sub serialize
{
    my ($self) = @_;

    my %content = (
                   jsonrpc => '2.0',
                   %{$self}
                  );

    my $json = encode_json \%content;
    return \$json;
} ## end sub serialize

1;