Inside Sprog.pm 

$self->view      ( $factory->make_class('/app/view',    app => $self) );
$self->machine   ( $factory->make_class('/app/machine', app => $self) );
$self->event_loop( $factory->load_class('/app/eventloop') );

• and later ...

$self->event_loop->run;