NAME
SM::Server - Server entity in the supermarket
SYNOPSIS
use SM::Server;
my $server = SM::Server->new( sub { rand(3) } );
$server->join_queue($client_1, $client_2);
print $server->id, " : ", $server->queue_len();
# or equivalently:
print "$server : ", $server->queue_len();
if ($server->busy) { ... }DESCRIPTION
This class implements the server entity in the supermarket problem space. Every server has an ID which is guaranteed to be unique in the whole application.
METHODS
$obj->new( sub {...} )-
Server instance constructor. It takes an optional argument, which is an anonymous sub generating service time periods for each client.
The
service_timeargument defaults to sub { 1 } $id = $obj->id()-
Reads the server's ID, which is generated by Server class's internal counter.
$bool = $obj->busy()-
Tests the status of the server, busy or not.
$obj->join_queue(@client)-
Makes a client (or more) join the server's client queue (which could be empty).
$len = $obj->queue_len()-
Returns the length of the server's client queue (in number of clients).
$time = $obj->gen_service_time()-
Generate the next serving time period using the generator passed in via the constructor.
$obj->log("log message")-
A message logger for the current server.
INTERNAL METHODS
The following methods are all started by a leading underscore (_), which are not meant to be used by the user directly.
$obj->_serve_next()-
Informs the server that it should serve the next client. if the server is currently busy, then the client at service will be popped from the client queue.
$obj->_queue()-
Returns the reference to the server's internal client queue.
AUTHOR
Agent Zhang <agentzh@gmail.com>
COPYRIGHT
Copyright 2006 by Agent Zhang. All rights reserved.
This library is free software; you can modify and/or modify it under the same terms as Perl itself.