sub f { # ( [$:arg] )
    use 5.007003; # perl v5.7.3; required for List::Util to be available in CORE
    use List::Util qw/ first /;
    my $arg = first { defined && length } ( shift, 'default_value' );
    $arg;
    }