d8928ed556654e049335fe4168eae22731b418cb
[working/NCIPServer.git] / lib / NCIPServer.pm
1 package NCIPServer;
2
3 use Modern::Perl;
4 use NCIP::Configuration;
5
6 use base qw(Net::Server::PreFork);
7
8 our $VERSION = '0.01';
9
10 sub configure_hook {
11     my ($self)        = @_;
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;
17     }
18     my $listeners = $config->('NCIP.listeners');
19     foreach my $svc ( keys %$listeners ) {
20         $server->{'port'} = $listeners->{$svc}->{'port'};
21     }
22 }
23
24 sub post_configure_hook {
25     my $self = shift;
26     use Data::Dumper;
27     print Dumper $self;
28 }
29
30 1;
31 __END__