File Coverage

blib/lib/PocketIO/Room.pm

Criterion	Covered	Total	%
statement	16	24	66.6
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	3	0.0
total	21	34	61.7

package PocketIO::Room;

use strict;
use warnings;

use PocketIO::Message;

sub new {
    my $class = shift;

    my $self = {@_};
    bless $self, $class;

    return $self;
}

sub send {
    my $self = shift;

    $self->{pool}->send_raw(
        room    => $self->{room},
        invoker => $self->{conn},
        message => $_[0],
    );

    return $self;
}

sub emit {
    my $self = shift;
    my $name = shift;

    my $event = $self->_build_event_message($name, @_);

    $self->{pool}->send_raw(
        room    => $self->{room},
        invoker => $self->{conn},
        message => $event
    );

    return $self;
}

sub _build_event_message {
    my $self  = shift;
    my $event = shift;

    return PocketIO::Message->new(
        type => 'event',
        data => {name => $event, args => [@_]}
    );
}

1;