#!/usr/bin/env perl

use strict;
use warnings;

use Dancer2;

get '/hello' => sub {
    return 'Hello, world!';
};

get '/my_stuff' => sub {
    my $my_stuff = setting('my_stuff') || {};
    my $x = $my_stuff->{X} || 'not set';
    my $y = $my_stuff->{Y} || 'not set';
    return "X[$x] Y[$y]";
};

get '/my_new_stuff' => sub {
    setting('my_stuff' => {X => 'newX', Y => 'newY'});
    return 'New stuff configured.';
};

dance;