File Coverage

blib/lib/Hoppy/TCPHandler/Error.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	25	28	89.2

package Hoppy::TCPHandler::Error;
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;
    }
    if ( my $hook = $c->hook->{client_error} ) {
        $hook->work( { poe => $poe, user_id => $user_id } );
    }
}

1;
__END__