rafl

        $self->process_form($ctx, 'Scheduling::Waitlist' => {
            available_locations => [$ctx->model('DB::Location')->all],
            available_events    => [$ctx->model('DB::Experience')->all],
            init_object         => {
                location => $waitlist->location->id,
                event    => $waitlist->experience->id,
                notes    => $waitlist->note,
            },
            on_success => fun ($form) {
                ...

rafl

package WMC::Server::Lite;

use Moose;
use HTTP::Server::Simple;
use IO::Socket::SSL;
use IO::File;
use Regexp::Common qw /URI/;
use DateTime;
use File::Spec;
use Log::Dispatch::Syslog;

rafl

# Devel::Declare::Sugar

package Test::Class::Sugar;

use Modern::Perl;

use Devel::Declare ();
use Devel::Declare::Context::Simple;
use Carp qw/croak/;