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