File Coverage

blib/lib/PLS/Server/Request/Shutdown.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	24	25	96.0

package PLS::Server::Request::Shutdown;

use strict;
use warnings;

use parent 'PLS::Server::Request';

use PLS::Server::State;
use PLS::Server::Response::Shutdown;

=head1 NAME

PLS::Server::Request::Shutdown

=head1 DESCRIPTION

This is a notification message from the client to the server requesting
that the server shuts down.

=cut

sub service
{
    my ($self) = @_;

    $PLS::Server::State::SHUTDOWN = 1;
    return PLS::Server::Response::Shutdown->new($self);
} ## end sub service

1;