package App;

use Dancer2;

use Data::Dumper;

get '/' => sub {

    return <<'HTML';

<form action="/q-1" method="GET">

<p>Did you ever drink coffee?</p>

<input type="text" name="coffee">

<p>What is your age?</p>

<input type="text" name="age">

<input type="submit">

</form>

HTML

};

get '/q-1' => sub {

    my %FIELD;

    my @field_names = qw(coffee age);

    foreach my $field_name (@field_names) {

        if ( defined param("$field_name") ) {

            $FIELD{$field_name} = param("$field_name");

        }

    }

    print Dumper \%FIELD;

    if ( $FIELD{'coffee'} eq "yes" && $FIELD{'age'} >= 16 ) {

        # redirect '/more-questions';

        redirect '/bike';

    }

    else {

        redirect '/other-questions';

    }

    if ( $FIELD{'age'} > 16 ) {

        redirect '/bike';

    }

};

get '/more-questions' => sub {

    return "More questions";

};

get '/other-questions' => sub {

    return "Other questions";

};

get '/bike' => sub {

    return "In my country you may ride a scooter though it is better to bike!";

};

App->to_app;