my($value) = map { defined() ? $_ : 1 } getConfigValue( "use_foo" ); #### my $value = do { defined(local $_ = getConfigValue( "use_foo" )) ? $_ : 1 }; #### sub default { my $v = shift; return defined $v ? $v : shift; } my $value = default(getConfigValue( "use_foo" ), 1);
## my $value = do { defined(local $_ = getConfigValue( "use_foo" )) ? $_ : 1 }; ##
## sub default { my $v = shift; return defined $v ? $v : shift; } my $value = default(getConfigValue( "use_foo" ), 1);