willert

---
title: Willkommen bei Stress im Griff, Max Mustermann
layout: default
order: 2
---

{{> header}}

{{> main-nav}}

willert

has item          => ();
has visits        => ();
has fav_map       => ();
has search_string => ( default => '' );
has force_tab     => ();

has uri => ( init_arg => undef, default => method () {
  my $uri = URI->new( $.item->get_uri . $.search_string );
  $uri->query_param( foo => $.force_tab ) if $.force_tab;
  $uri;

willert

package AMG::Certificate;
use 5.014;
use utf8;

use Moose;
use namespace::autoclean;

has content => (
  is       => 'ro',
  writer   => 'set_content',

willert

package Util::Certificates;
use WeCARE::Test -app => 'AMG';
use utf8;

use AMG::Certificate;

sub test_cert {
  my $self = shift;

  my $template    = $self->env->path_to( 'share', 'member_cert.pdf' );

willert

package Wellmax::Controller::Users;

use Moose;
use namespace::autoclean;
use Data::Dumper;

BEGIN { extends 'Catalyst::Controller' }

__PACKAGE__->config(
  action => {

willert

# ask perlbrew or perlenv to default to a specific version of perl
perl '5.14.2';

assert {
  # check some system wide prereqs on install time here
};

prepend 'ExtUtils::MakeMaker' => "6.30";

# skip testing for those distributions

willert

package Search::Autocomplete;

use 5.014;
use Test::Able;
use Test::More;
use Data::Dumper;
use JSON::XS qw/ decode_json /;
use utf8;

# order is important!

willert

  sub ingredient : Chained(base) {
    my ( $self, $ctx, $query_string, @rest ) = @_;
		$query_string = join( q{/}, $query_string, @rest ) if @rest;

    $query_string =~ s/\W+/ /g; # <-- da kommt dein sanitizer hin

    my @suggestions;

    goto RETURN_SUGGESTIONS unless $query_string;

willert

  sub ingredient : Chained(base) {
    my ( $self, $ctx, $query_string, @rest ) = @_;
		$query_string = join( q{/}, $query_string, @rest ) if @rest;

willert

  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,
  });