The problem 

my $bus_func = $BusinessFunctions{$function_name}->{CODE};

$request->call_flag($call_flag);
$request->args($args);
$request->state($state);
$request->last_function($last_function);

my $result = $bus_func->(
    $request, $call_flag, $args, $state, $last_function
);