sub is_empty_string { my ($value) = @_; return defined $value and $value eq ''; }