Guest User

Untitled

a guest
Feb 21st, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. package Service::Chat;
  2. use Moose;
  3.  
  4. extends 'Kamaitachi::Service';
  5.  
  6. with qw/Kamaitachi::Service::AutoConnect
  7. Kamaitachi::Service::Broadcaster
  8. /;
  9.  
  10. sub on_invoke_send {
  11. my ($self, $session, $req) = @_;
  12.  
  13. my $msg = $req->args->[1];
  14. my $res = $self->notify_packet( onMessage => $msg );
  15.  
  16. $self->broadcast( $session => $res );
  17. }
  18.  
  19. 1;
Add Comment
Please, Sign In to add comment