## name simple failure
## failures 3
## cut
sub test_sub1 {
        $foo = shift;
        return undef;
}
sub test_sub2 {
        shift || return undef;
}
sub test_sub3 {
        return undef if $bar;
}
#-----------------------------------------------------------------------------
## name simple success
## failures 0
## cut
sub test_sub1 {
        $foo = shift;
        return;
}
sub test_sub2 {
        shift || return;
}
sub test_sub3 {
        return if $bar;
}
$foo{return}; # hash key, not keyword
sub foo {return}; # no sibling