The problem 

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

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