File Coverage

blib/lib/Hoppy/TCPHandler/Connected.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	22	24	91.6

package Hoppy::TCPHandler::Connected;
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;

    $c->{sessions}->{$session_id}       = 1;
    $c->{not_authorized}->{$session_id} = 1;

    if ( my $hook = $c->hook->{client_connect} ) {
        $hook->work( { poe => $poe } );
    }
}

1;
__END__