Lines Matching refs:ok
9 my $ok = $@ ? 0 : 1;11 return ($ok, $@);18 my ($ok, $err) = run_it($code);20 ok($ok, $name) || diag("eval died with $err");22 return $ok;29 my ($ok, $err) = run_it($code);31 ok(!$ok, $name) || diag("$code executed successfully");33 return !$ok;