File Coverage

blib/lib/Hoppy/TCPHandler/Disconnected.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	29	32	90.6

package Hoppy::TCPHandler::Disconnected;
use strict;
use warnings;
use base qw( Hoppy::Base );

sub do_handle {
    my $self       = shift;
    my $poe        = shift;
    my $c          = $self->context;
    my $session_id = $poe->session->ID;
    my $user       = $c->room->fetch_user_from_session_id($session_id);
    my $user_id;
    if ($user) {
        $user_id = $user->user_id;
        $c->room->logout( { user_id => $user_id }, $poe );
    }
    delete $c->{sessions}->{$session_id};
    delete $c->{not_authorized}->{$session_id};
    $poe->kernel->yield("shutdown");
    if ( my $hook = $c->hook->{client_disconnected} ) {
        $hook->work( { poe => $poe, user_id => $user_id } );
    }
}

1;
__END__