Lines Matching defs:ok
13 sub ok {14 my ($num, $ok, $name) = @_;16 print $ok ? "ok $num\n" : "not ok $num\n";17 $ok;22 my $ok = ((defined $left) ? $left == $right : undef);23 unless (ok ($num, $ok, $name)) {34 $ok;