my($_BAR) = 1;
sub foo {
    return shift->call_super_before(\@_, sub {
        die('gone') unless $_BAR;
        return;
    });
}