File Coverage

blib/lib/PocketIO/Transport/Base.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch	0	2	0.0
condition			n/a
subroutine	3	8	37.5
pod	5	5	100.0
total	17	40	42.5

package PocketIO::Transport::Base;

use strict;
use warnings;

use Scalar::Util qw(weaken);

sub new {
    my $class = shift;

    my $self = bless {@_}, $class;

    weaken $self->{env};
    weaken $self->{conn};

    return $self;
}

sub env  { $_[0]->{env} }
sub conn { $_[0]->{conn} }

sub client_connected {
    my $self = shift;
    my ($conn) = @_;

    return if $conn->is_connected;

    $conn->connected;
}

sub client_disconnected {
    my $self = shift;
    my ($conn) = @_;

    $conn->disconnected;

    $self->{on_disconnect}->($self);

    return $self;
}

1;
__END__