gistfile1.pl

  my $system = $ctx->model->system('Ernaehrungscoach::Initialdiagnose');
  my $db     = $system->blank_case_object_for( $ctx->user );
  my $case   = $db->create_case_object( import => [
      $ctx->user, 'Ernaehrungscoach::Situation'
  ]);
  my $results = $system->interpreter->evaluate( $case );
  my $report  = Exparse::Report->new({
      generator => $system->generator,
      results   => $results,
  });