The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More import => ['!pass'];

plan tests => 3;

use Dancer;
use Dancer::Test;

set foo => 42;

get '/' => sub { config };

my $res = dancer_response(GET => '/');
is $res->{content}{foo}, 42, "setting is accessible via config";

is config->{'foo'}, 42, "config works";

is setting('foo'), 42, "setting works";