File Coverage

blib/lib/Hoppy/Service/Logout.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch	0	6	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	39	33.3

package Hoppy::Service::Logout;
use strict;
use warnings;
use base qw( Hoppy::Service::Base );

sub work {
    my $self = shift;
    my $args = shift;

    my $user_id    = $args->{user_id};
    my $in_data    = $args->{in_data};
    my $poe        = $args->{poe};
    my $session_id = $poe->session->ID;
    my $c          = $self->context;

    my $result = $c->room->logout( $args, $poe );
    my $out_data;
    if ($result) {
        $out_data = { result => $result, error => "" };
    }
    else {
        my $message = "logout failed";
        $out_data = { result => "", error => $message };
    }
    if ( $in_data->{id} ) {
        $out_data->{id} = $in_data->{id};
    }
    my $serialized = $c->formatter->serialize($out_data);
    $c->unicast(
        {
            session_id => $session_id,
            user_id    => $args->{user_id},
            message    => $serialized
        }
    );
    if ( my $hook = $c->hook->{logout} ) {
        $hook->work($args);
    }
}

1;
__END__