1package DBICTestApp;
2use strict;
3use warnings;
4use Dancer2 appname => 'TestApp';
5use Dancer2::Plugin::Auth::Extensible;
6use Scalar::Util qw(blessed);
7
8get '/dbic_update_user_role/:realm' => sub {
9    my $realm = param 'realm';
10    my $user = update_user 'mark',
11      realm => $realm,
12      role  => { CiderDrinker => 1 };
13
14    if ( blessed($user) ) {
15        $user = +{ $user->get_columns };
16    }
17    send_as YAML => $user;
18};
19
20get '/dbic_cider' => require_role CiderDrinker => sub {
21    "You can have a cider";
22};
23
24
251;
26