9.2. Skeleton Server

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;