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__