File Coverage

blib/lib/Net/Async/WebSocket/JSON/Client.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2017 -- [e-mail]

package Net::Async::WebSocket::JSON::Client;

use strict;
use warnings;
use mro 'c3';
use base qw( Net::Async::WebSocket::Client Net::Async::WebSocket::JSON::Protocol );

our $VERSION = '0.01';

=head1 NAME

C - connect to a WebSocket server using JSON and C

=head1 SYNOPSIS

 use IO::Async::Loop;
 use Net::Async::WebSocket::JSON::Client;
 use Data::Dump;

 my $client = Net::Async::WebSocket::JSON::Client->new(
    on_json => sub {
       my ( $self, $data ) = @_;
       print Data::Dump::pp( $data );
    },
 );

 my $loop = IO::Async::Loop->new;
 $loop->add( $client );

 $client->connect(
    url => "ws://$HOST:$PORT/",
 )->then( sub {
    $client->send_json( { message => "Hello, world!\n" } );
 })->get;

 $loop->run;

=head1 DESCRIPTION

This subclass of L provides conveniences for
using JSON-encoded data sent over text frames.

It should be used identically to C, except that
it has the new C method and C event defined by
L.

=cut

=head1 AUTHOR

Paul Evans

=cut

0x55AA;