Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Service::Chat;
- use Moose;
- extends 'Kamaitachi::Service';
- with qw/Kamaitachi::Service::AutoConnect
- Kamaitachi::Service::Broadcaster
- /;
- sub on_invoke_send {
- my ($self, $session, $req) = @_;
- my $msg = $req->args->[1];
- my $res = $self->notify_packet( onMessage => $msg );
- $self->broadcast( $session => $res );
- }
- 1;
Add Comment
Please, Sign In to add comment