$SIG{ __WARN__ } = sub {
    return if caller eq 'Contextual::Return::Value';
    warn @_;
};