say "1..4";
if 0 {
say "not ok 1";
}
if 1 {
say "ok 1";
} else {
say "not ok 1";
}
sub a {
say "ok 2";
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";
}