File Coverage

blib/lib/Hoppy/Room/Memory.pm

Criterion	Covered	Total	%
statement	70	75	93.3
branch	6	16	37.5
condition	2	2	100.0
subroutine	12	12	100.0
pod	8	8	100.0
total	98	113	86.7

package Hoppy::Room::Memory;
use strict;
use warnings;
use Hoppy::User;
use base qw(Hoppy::Base);

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);
    $self->create_room('global');
    return $self;
}

sub create_room {
    my $self    = shift;
    my $room_id = shift;
    unless ( $self->{rooms}->{$room_id} ) {
        $self->{rooms}->{$room_id} = {};
    }
}

sub delete_room {
    my $self    = shift;
    my $room_id = shift;
    if ( $room_id ne 'global' ) {
        my $room = $self->{rooms}->{$room_id};
        for my $user_id ( keys %$room ) {
            $self->delete_user($user_id);
        }
        delete $self->{rooms}->{$room_id};
    }
}

sub login {
    my $self   = shift;
    my $args   = shift;
    my $poe    = shift;
    my $c      = $self->context;
    my $result = 1;
    if ( $c->service->{auth_login} ) {
        $result = $c->service->{auth_login}->work( $args, $poe );
        return 0 unless $result;
    }
    my $user_id    = $args->{user_id};
    my $password   = $args->{password};
    my $session_id = $args->{session_id};
    my $room_id    = $args->{room_id} || 'global';
    delete $c->{not_authorized}->{$session_id};
    my $user = Hoppy::User->new(
        user_id    => $user_id,
        session_id => $session_id
    );
    $self->{rooms}->{$room_id}->{$user_id} = $user;
    $self->{where_in}->{$user_id}          = $room_id;
    $self->{sessions}->{$session_id}       = $user_id;
    return $result;
}

sub logout {
    my $self   = shift;
    my $args   = shift;
    my $poe    = shift;
    my $c      = $self->context;
    my $result = 1;
    if ( $c->service->{auth_logout} ) {
        $result = $c->service->{auth_logout}->work( $args, $poe );
        return 0 unless $result;
    }
    my $user_id = $args->{user_id};
    my $user    = $self->fetch_user_from_user_id($user_id);
    delete $self->{sessions}->{ $user->session_id };
    my $room_id = delete $self->{where_in}->{$user_id};
    delete $self->{rooms}->{$room_id}->{$user_id};
    $self->context->{not_authorized}->{ $user->session_id } = 1;
    return $result;
}

sub fetch_user_from_user_id {
    my $self    = shift;
    my $user_id = shift;
    return unless ($user_id);
    my $room_id = $self->{where_in}->{$user_id};
    return $self->{rooms}->{$room_id}->{$user_id};
}

sub fetch_user_from_session_id {
    my $self       = shift;
    my $session_id = shift;
    return unless ($session_id);
    my $user_id = $self->{sessions}->{$session_id};
    return $self->fetch_user_from_user_id($user_id);
}

sub fetch_users_from_room_id {
    my $self    = shift;
    my $room_id = shift;
    my @users   = values %{ $self->{rooms}->{$room_id} };
    return \@users;
}

1;
__END__