use 5.010;

given ( wantarray ) {
    when ( undef ) {
        return;           # void context
    }
    when ( !$_ ) {
        return 'scalar context';
    }
    default {
        return qw( list context );
    }
}