Boucherot::Connection::Server - Mother class for all servers
package MyServer;
use MyServer::Client;
use base ("Boucherot::Connection::Server");
sub new {
my $class=shift;
my $parent=shift;
my %arguments=@_;
$arguments{"port"}=5584;
$arguments{"client_class"}="MyServer::Client";
$arguments{"listen"}=20;
my $self=$class->SUPER::new($parent,%arguments);
return $self;
}
This class is the mother class for all the servers. It wait for one or severals connections on a port, and for each one, create an instance of 'client_class' that is a public attribute.
This class was written by Arthibus Gissehel <gissehel@vachefolle.com> in 2000.
This class is part of the Boucherot project.