First we create a skeleton server that does not do anything. Example 9-1. examples/server/skeleton_server.pl #!/usr/bin/perl -T
use strict;
use warnings;
use lib 'lib';
use SkeletonServer;
SkeletonServer->run(port => 8000); Example 9-2. examples/server/lib/SkeletonServer.pm package SkeletonServer;
use warnings;
use strict;
use base 'Net::Server';
sub process_request {
# do your stuff
}
1;
If you are interested in on-site trainings by the author, please
contact me directly.
|
