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 => 2;

use Dancer::Test;

{
    use Dancer;

    hook before => sub {
        var("xpto" => "foo");
        vars->{zbr} = 'ugh';
    };

    get '/bar' => sub {
        var("xpto");
    };

    get '/baz' => sub {
        vars->{zbr};
    };
}

response_content_is [GET => '/bar'], 'foo';
response_content_is [GET => '/baz'], 'ugh';