The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use strict;
use warnings;

use Dancer ':syntax';
use Dancer::ModuleLoader;
use Dancer::Session::KiokuDB;

use Test::More tests => 2, import => ['!pass'];
use Test::Fatal;

is(
    exception { Dancer::Session::KiokuDB->new },
    undef,
    'kiokudb_backend_opts not required',
);

set kiokudb_backend_opts => [];

like(
    exception { Dancer::Session::KiokuDB->new },
    qr/^kiokudb_backend_opts must be a hash reference/,
    'kiokudb_backend_opts should be hashref',
);