# Assuming this is within the *.pm package, and you are
  # only allowing a single parameter
  # as (what looks to be) defined in your XS
  c_func( ( ( defined( $_[0] ) ) ? $_[0] : '' ) );