view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

                    );
                }
            }
        );

        #    $client->put_room('535881', encode_json({ room => { name => 'Room 1', topic => 'oops' } }), sub {
        #        my ($body, $hdr) = @_;
        #        if ($hdr->{Status} !~ m/2/) {
        #            $client->emit('error', "$hdr->{Status}: $hdr->{Reason}");
        #        } else {
        #            print "$hdr->{Status}: updated room\n";
        #        }
        #
        #        $client->exit;
        #    });
        #
        #    $client->get_rooms(sub {
        #        my ($body, $hdr) = @_;
        #        if ($hdr->{Status} !~ m/2/) {
        #            $client->emit('error', "$hdr->{Status}: $hdr->{Reason}");
        #        } else {