The journey 

my $dc_call_flag = Devel::Canary->new_scalar();
my $dc_args      = Devel::Canary->new_hashref();
my $dc_state     = Devel::Canary->new_hashref();
my $dc_last_func = Devel::Canary->new_scalar();
my $return = $business_func->(
  $request, $dc_call_flag, $dc_args, $dc_state, $dc_last_func
);