4 use NCIP::Configuration;
6 use base qw(Net::Server::PreFork);
12 my $server = $self->{'server'};
13 my $config = NCIP::Configuration->new( $server->{'config_dir'} );
14 my $server_params = $config->('NCIP.server-params');
15 while ( my ( $key, $val ) = each %$server_params ) {
16 $server->{$key} = $val;
18 my $listeners = $config->('NCIP.listeners');
19 foreach my $svc ( keys %$listeners ) {
20 $server->{'port'} = $listeners->{$svc}->{'port'};
24 sub post_configure_hook {