actually load config

[scpubgit/Clifton.git] / lib / App / Clifton / Server.pm

package App::Clifton::Server;

use aliased 'App::Clifton::ServiceContainer';
use aliased 'App::Clifton::ConfigLoader';
use Moo;

extends 'App::Clifton::Service';

sub BUILD {
  my ($self, $args) = @_;
  $args->{loop}->add($self);
  $self->$_ for qw(services);
}

has config_file => (is => 'ro', required => 1);

has config_loader => (is => 'lazy');

has current_config => (is => 'rw');

sub _build_config_loader { ConfigLoader->new }

has services => (is => 'lazy');

sub _build_services {
  shift->_new_child(ServiceContainer, {});
}

sub reload_config { shift->_do(reload_config => @_) }
sub shutdown { shift->_do(shutdown => @_) }

sub _body_for_reload_config {
  my ($self, $args) = @_;
  my $config = $self->config_loader->config_from_file($self->config_file);
  $self->current_config($config);
  $args->{on_finished}->($config);
}

1;