view release on metacpan or  search on metacpan

t/p6/basic/if.t  view on Meta::CPAN

    0;
}
sub b {
    say "ok 3";
    1;
}
sub c {
    say "not ok";
    0;
}
sub id($arg) {
   $arg; 
}

if a() {
    say "no ok";
} elsif b() {
    say "ok 4";
} elsif id(c()) {
    say "no ok";
}